VBA PrintOut to PDF

[Pinaceous]

Good Day Everyone,

I'm working with a sub that accesses the PrintOut feature below but I'd like to see if I can use this PrintOut feature onto a PDF.

Dim rngPrint As Range
Set rngPrint = Range("A1:S42")
rngPrint.PrintOut

Please let me know because I cannot figure it out.

Thank you!
pinaceous

 

[John_w]

    Range("A1:S42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Range.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[Pinaceous]

    Range("A1:S42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Range.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Wow John_w!

That is fantastic!

How would you add "yyyymmdd\_hhmm" to the "Range.pdf" title?

Thank you!
pinaceous

 

[John_w]

I'm not sure if the \ in "yyyymmdd\_hhmm" is a typo, because that character is a folder separator and can't be used in a file name.

    Range("A1:S42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Range" & Format(Now, "yyyymmdd_hhmm") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[Pinaceous]

I'm not sure if the \ in "yyyymmdd\_hhmm" is a typo, because that character is a folder separator and can't be used in a file name.

    Range("A1:S42").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\Range" & Format(Now, "yyyymmdd_hhmm") & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Wow thanks John_w!

 

[Pinaceous]

Hi John_w,

I am curious. How would I combine two of these subs together with different ranges?

For example, if I have the sub:

Range("A246:S292").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\RANGE.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

and

Range("A293:S339").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\RANGE.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

In using the first sub's Range("A246:S292") it produces a pdf with the page break ending at line 292. But when I combine them together such as in Range("A246:S2339") the page break ends at line 317.

So, my question is how do I combine both subs together in respecting their original page breaks onto one pdf?

Please let me know if you need my question clarified.

Thank you!
pinaceous

 

[John_w]

Range("A246:S292,A293:S339").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\RANGE.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Should start the second range on a new page in the same PDF.

 

[Pinaceous]

Range("A246:S292,A293:S339").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\RANGE.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Should start the second range on a new page in the same PDF.

Hi John_w!

Yes, this worked and I appreciate your post!

R/
pinaceous

 

[Pinaceous]

Hey John_w!

I have a continued question on this thread, if you're interested. How do I make the Range take up the space of the pdf page? For example, currently when I chose a range it shrinks the information upon the pdf page(s).

How would I provide the Range to take up the entire length (space) of that pdf page?

Curious, please let me know when you get a chance!


Respectfully,
pinaceous

 

[John_w]

Try setting the Print Area to include rows below the range to make it fill a page.