Merge several single-sheet PDF into 1 file

[blaksnm]

Hi
I have 3 routines. Each prints out its printarea, but 2 as portrait and 1 as landscape
When I try to print out in one multiple printarea I get my print (all 3 pages) either as portrait or landscape
How do I merge my 3 routines such as I get 1 PDF With alle 3 pages respectly placed?
Best Regards

 

[GWteB]

If you have more than one print area on a worksheet, it will not work out what you want, because the orientation affects the entire worksheet. If you have your print areas each on a separate worksheet, then place the worksheet tabs in the desired order. So if sheet 3 has to be the first page in the PDF, move its tab up front, followed by the tab that should be the second page and finally the tab for the third page.
If your workbook consists of just those three worksheets, the following will do:

    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\blaksnm\Documents\Book_1.pdf", Quality:=xlQualityStandard, _
                                     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

If your workbook consists of more than those three worksheets, the following should work:

Sub Example()
    Dim oWs     As Worksheet
    Dim vSht    As Variant
    
    vSht = Array("Sheet3", "Sheet1", "Sheet2")
    Set oWs = ThisWorkbook.Sheets(vSht(0))

    Sheets(vSht).Select
    oWs.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\blaksnm\Documents\Book_1.pdf", Quality:=xlQualityStandard, _
                            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

 

[blaksnm]

Thanks a lot!
This is just perfect!
BRr Snoopy

 

[GWteB]

You are welcome and thanks for letting me know.