Printing to pdf and resizing

[Punner77]

Hi, I don't use vba too often, so I am not well versed in it. I am trying to take a range area and print it to a pdf. While the below macro does work, it sometimes makes the image way too large (spanning multiple sheets), or way too small. I don' t know why it is inconsistent. Any help would be great!

>>> use code - tags <<<

Sub PrintPDF()

Dim saveLocation As String
Dim MyDate As String
Dim Report As String
Dim rng As Range
Dim FileName As String


saveLocation = "C:\users\public\"
MyDate = Format(Date, "YYYY-MM-DD")
Report = Sheets("InputSheet").Range("B3")

    Set rng = Sheets("Sheet3").Range("A1:Z24")


        ThisWorkbook.Sheets("Sheet3").PageSetup. _
                    RightFooter = "Created by Sybrandy"
                    Zoom = 100
                    Orientation = xlLandscape
                    FitToPagesWide = 1
                    FitToPagesTall = False


        rng.ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=saveLocation & MyDate & "_" & Report, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True


End Sub

 

[vletm]

Punner77
Try to start Macro Recorder
and
do those step which You need to take care before printing (PDF).
Then You'll get hints and correct syntax from that code.

 

[Punner77]

Punner77
Try to start Macro Recorder
and
do those step which You need to take care before printing (PDF).
Then You'll get hints and correct syntax from that code.

Thanks vletm. I have never used the Macro recorder before. Any tips?

 

[vletm]

Punner77
Tools > Macro > Record New Macro ...

 

[Punner77]

Thanks vletm! It now works!