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

 

[Pinaceous]

Is this possible threw vba code?

 

[John_w]

Something like this - adjust the range as needed.

    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$M$50"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\path\to\Book1.pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With

 

[Pinaceous]

Hey John_w!

That did it! Appreciate the follow-threw!

-pinaceous