Hello, if anyone knows how to do this, I would appreciate a pointer. There are a few threads on it but i havent found one that actually answers the question of how to do it as one PDF with different orientations per page.
This is where i am at so far...
Many thanks in advance for any guru
This is where i am at so far...
Code:
Sub ExportPDF2() Dim sFile As String
sFile = "C:\Users\David\Documents\Projects\Internal\PDFs" & "filenm" & ".pdf"
Worksheets("Summary").PageSetup.Orientation = xlPortrait
Worksheets("Detail").PageSetup.Orientation = xlLandscape
Sheets(Array("Summary", "Detail")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFile2, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Many thanks in advance for any guru
Last edited: