Macro to save file as PDF saves full sheet

[Jyggalag]

Hi all,

I have this overview at the moment:

If I manually choose to save my file as a PDF, it works fine and I get just 1 page with the overview above.

However, I have the following VBA code to save my file as a PDF:

Option Explicit

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "S:\COMPANY\TG_FDSL\DS_COMMON\PRIVATE FOLDER\18- PRIVATE SUBFOLDER\Tracking\PDF files\"
fn = Range("A61")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path & fn & ".pdf"

End Sub

But when I save my file with this macro, it saves the entire sheet and I get 4 pages of PDF, rather than the limited view I have set it to above.

Has anybody tried this before? Does anybody have a solution? @Fluff is this a bug maybe?

Thank you!

Kind regards,
Jyggalag

 

[Kerryx]

I have something similar but it works with print areas try adding

Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[Kerryx]

Option Explicit

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "S:\COMPANY\TG_FDSL\DS_COMMON\PRIVATE FOLDER\18- PRIVATE SUBFOLDER\Tracking\PDF files\"
fn = Range("A61")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path & fn & ".pdf",_
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[Jyggalag]

H

Option Explicit

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "S:\COMPANY\TG_FDSL\DS_COMMON\PRIVATE FOLDER\18- PRIVATE SUBFOLDER\Tracking\PDF files\"
fn = Range("A61")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Path & fn & ".pdf",_
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Hi!

Thank you so much!

I am for some reason getting this error in the code, any idea how to fix? @Fluff @RoryA maybe?

 

[Jyggalag]

UPDATE! It works now with this being the full code:

Option Explicit

Sub SaveFileWithMacro()

Dim Path As String
Dim fn As String
Path = "S:\PATH\Tracking\PDF files\"
fn = Range("A61")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=Path & fn & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

HOWEVER, when I run the macro, it still saves all 4 pages of the PDF and not the marked area as I want it to Any idea why or how to fix?