Ggtcf

Where does the bonus feat in the cleric starting package come from?

In Qur'an 7:161, why is "say the word of humility" translated in various ways?

Why do compilers behave differently when static_cast(ing) a function to void*?

250 Floor Tower

How to explain what's wrong with this application of the chain rule?

Should I outline or discovery write my stories?

Calculating Wattage for Resistor in High Frequency Application?

How to implement a feedback to keep the DC gain at zero for this conceptual passive filter?

Freedom of speech and where it applies

Why electric field inside a cavity of a non-conducting sphere not zero?

Pre-mixing cryogenic fuels and using only one fuel tank

How do you make your own symbol when Detexify fails?

Has any country ever had 2 former presidents in jail simultaneously?

How can "mimic phobia" be cured or prevented?

If a character has darkvision, can they see through an area of nonmagical darkness filled with lightly obscuring gas?

How should I respond when I lied about my education and the company finds out through background check?

Does a 'pending' US visa application constitute a denial?

Creepy dinosaur pc game identification

It grows, but water kills it

What prevents the use of a multi-segment ILS for non-straight approaches?

Is there a single word describing earning money through any means?

Is the U.S. Code copyrighted by the Government?

Create all possible words using a set or letters

Is it safe to use olive oil to clean the ear wax?

How to print excel workbook to PDF by setting Fit Sheet On One Page via Excel VBA

Exporting an MS Excel 2003 workbook to PDF via VBAHow to avoid using Select in Excel VBAexcel vba sheet comparison using vba in excel and store result in a sheet?Pages don't scale when exporting to PDF, this messes up printingAll columns of excelsheet are not fitted in same page of pdf; while converting using Excel VBAHow to print multiply sheets with selected page range into single PDF file with VBAConverting multiple sheet Excel file to PDF using VBA errorHow to set fixed margins on Excel VBA code (PDF is printing in 2 pages instead of 1)Vba: Print an Excel sheet to multiple pdf pagesExcel VBA Print to PDF Multiple sheets per page

0

I created a code which enables user to print an excel workbook to PDF with page set ups options in vba.

But when I need to copy a comment from another manually printed PDF file to VBA printed PDF file or create a new comment, it displays me a very tiny comment with tiny fonts.I hope this issue is caused by not printing the PDF file "Fit Sheet On One Page"

How do I solve this?

'Code continues from here'

filename=Left$(Activeworkbook.Name,InStrRev(Activeworkbook.Name,".",-1,vbBinaryCompare)-1) & ".pdf"
Application.PrintCommunication=False

With Activesheet.Pagesetup
 .Orientation=XlLandscape
 .Zoom=False
 .FitToPagesWide=1
 .FitToPagesTall=False
End With
Application.PrintCommunication=true

Activesheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 filename:=FolderPath & filename, _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=true, _

End Sub

excel vba pdf

share|improve this question

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

add a comment | 

0

I created a code which enables user to print an excel workbook to PDF with page set ups options in vba.

But when I need to copy a comment from another manually printed PDF file to VBA printed PDF file or create a new comment, it displays me a very tiny comment with tiny fonts.I hope this issue is caused by not printing the PDF file "Fit Sheet On One Page"

How do I solve this?

'Code continues from here'

filename=Left$(Activeworkbook.Name,InStrRev(Activeworkbook.Name,".",-1,vbBinaryCompare)-1) & ".pdf"
Application.PrintCommunication=False

With Activesheet.Pagesetup
 .Orientation=XlLandscape
 .Zoom=False
 .FitToPagesWide=1
 .FitToPagesTall=False
End With
Application.PrintCommunication=true

Activesheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 filename:=FolderPath & filename, _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=true, _

End Sub

excel vba pdf

share|improve this question

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

add a comment | 

I created a code which enables user to print an excel workbook to PDF with page set ups options in vba.

But when I need to copy a comment from another manually printed PDF file to VBA printed PDF file or create a new comment, it displays me a very tiny comment with tiny fonts.I hope this issue is caused by not printing the PDF file "Fit Sheet On One Page"

How do I solve this?

'Code continues from here'

filename=Left$(Activeworkbook.Name,InStrRev(Activeworkbook.Name,".",-1,vbBinaryCompare)-1) & ".pdf"
Application.PrintCommunication=False

With Activesheet.Pagesetup
 .Orientation=XlLandscape
 .Zoom=False
 .FitToPagesWide=1
 .FitToPagesTall=False
End With
Application.PrintCommunication=true

Activesheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 filename:=FolderPath & filename, _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=true, _

End Sub

excel vba pdf

share|improve this question

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

'Code continues from here'

filename=Left$(Activeworkbook.Name,InStrRev(Activeworkbook.Name,".",-1,vbBinaryCompare)-1) & ".pdf"
Application.PrintCommunication=False

With Activesheet.Pagesetup
 .Orientation=XlLandscape
 .Zoom=False
 .FitToPagesWide=1
 .FitToPagesTall=False
End With
Application.PrintCommunication=true

Activesheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 filename:=FolderPath & filename, _
 Quality:=xlQualityStandard, _
 IncludeDocProperties:=False, _
 IgnorePrintAreas:=False, _
 OpenAfterPublish:=true, _

End Sub

share|improve this question

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

share|improve this question

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328

asked Mar 8 at 4:55

Nilusha M.Nilusha M.

328