CODEWITHSUNDEEP
excelvbapdfexport-to-pdf
Tim Stäcker
Tim Stäcker

Reputation: 13

Excel VBA Print to PDF Multiple sheets per page

I have a question regarding Excel and VBA. I want to export multiple sheets as a PDF. My code works fine. What I want to do now is, merge multiple sheets on one page. Due to the height and width it makes sense to put two sheets together on one page. If I want to print it with my printer it works fine with the printer page layout setting. Is there a page layout code for vba to put two sheets onto one page together? Thanks in advance.

End Sub

Best regards,

 Sub SavePDF()
 Dim mySheets As Variant, sh


 mySheets = Array("Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4")
 For Each sh In mySheets
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
    .PrintArea = "$A$1:$V$70"
    .Orientation = xlPortrait
    .CenterHorizontally = True
    .FitToPagesWide = 1

    End With
    Application.PrintCommunication = True

Next

Sheets(mySheets).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\tstaecker\test.pdf", _
     IgnorePrintAreas:=True, OpenAfterPublish:=False
End Sub

Upvotes: 0

Views: 2765

Answers (1)

Pᴇʜ
Pᴇʜ

Reputation: 57743

Even when you export multiple sheets into one single PDF file, every sheet will start on a new page in the exported PDF.

Otherwise you will need to copy everything into one single sheet first and export that summary sheet only. Excel cannot export 2 different sheets onto one single page.

Note that copying everything into one single summary sheet only makes sense if the column widths are the same in your sheets. Otherwise you will easily mess up.

Upvotes: 1

Related Questions