Blank Pages Saved As PDF

[hindotmo12]

Hey all!

I've written a code to save a couple of selected pages as PDFs. My code works, saving it in the correct file path with the correct names and all. The problem is, the saved PDF has a third, blank page, when there should only be two. The selected ranges on both sheets go up to 46, and both are on one page, so I know it's not that.

Private Sub ConsentPDF_Click()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Path = "O:\LAB\Label Tracking\Mailed Forms\"
FileName1 = "Use & Destruction Consent"
FileName2 = Sheets("Use Consent").Range("B2")
FileName3 = Sheets("Use Consent").Range("F2")

Sheets("Use Consent").Activate
ActiveSheet.UsedRange.Select
Sheets("Destruction Consent").Select
ActiveSheet.UsedRange.Select

ThisWorkbook.Sheets(Array("Use Consent", "Destruction Consent")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FileName1 & " - " & FileName2 & " - " & FileName3 _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Thank you for any help!

[huuthang_bd]

Hi,

In this case, nobody can know where the mistake is if you don't attach the real workbook.

[hindotmo12]

Hi,

Sorry about that, I guess I just assumed it would be a coding issue. I've just updated the OP with the attachment.

[huuthang_bd]

Your workbook has a strange error. Hide all unused rows and columns may be helpful.

[hindotmo12]

What/where is the error? I don't think I can hide unused rows, as the sheets are formatted to be used as forms. It's such a basic sheet right now, maybe I ought to just start from scratch?

Thank you

[hindotmo12]

I ran into errors when I would run the code twice, telling me to debug. I think it didn't want to save the same file name over an existing file. It caused Excel to freeze, and even froze my library folder. Maybe that did it?

[huuthang_bd]

Hi Hindotmo,

I have encountered this error. The error is if you fit the contents into 1 page, when printing the contents will be zoom out. I don't know why.

[Kenneth Hobson]

After sheets are group selected, use ActiveSheet. The other Activate and Select are not needed.

Private Sub ConsentPDF_Click()
    Dim Path As String
    Dim FileName1 As String
    Dim FileName2 As String
    Dim FileName3 As String
    
    Path = "O:\LAB\Label Tracking\Mailed Forms\"
    FileName1 = "Use & Destruction Consent"
    FileName2 = Sheets("Use Consent").Range("B2")
    FileName3 = Sheets("Use Consent").Range("F2")
    
    ThisWorkbook.Sheets(Array("Use Consent", "Destruction Consent")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FileName1 & " - " & FileName2 & " - " & FileName3 _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub