Zapisz jako PDF w pejzażu

Jak mogę zapisać wiele arkuszy w moim skoroszycie w jednym pliku PDF w formacie poziomym? Oto, co mam. Brakuje składni krajobrazu -Zapisz jako PDF w pejzażu

Sub CompileReport() 

    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Report\Test" & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False 


End Sub

Dzięki!

Źródło

2014-04-16 Chris2015

Spróbuj tego:

Sub CompileReport() 
    Dim mySheets As Variant, sh 

    mySheets = Array("Sheet1", "Sheet2", "Sheet3") 
    For Each sh In mySheets 
     Sheets(sh).PageSetup.Orientation = xlLandscape 
    Next 

    Sheets(mySheets).Select 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Report\Test" & ".pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False 
End Sub

Źródło

2014-04-16 20:29:39

Wydaje się, że błąd z tym kodem: ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Filename: = "F: \ Report \ Test" & ".pdf", _ Jakość: = xlQualityStandard, IncludeDocProperties: = True, IgnorePrintAreas: = False – Chris2015

jaki jest błąd? czy rzeczywiście masz folder 'Report' na dysku' F'? –

To było to. Nie utworzono folderu raportu. Dzięki! – Chris2015

Odpowiedz

Powiązane problemy