Manzara PDF olarak kaydet

Question

Çalışma kitabımdaki birden çok sayfayı yatay biçimde bir pdf'ye nasıl pdf yapabilirim? İşte sahip olduğum şey. Manzara sözdizimini özledim -

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 

Teşekkürler!

Answer 1

deneyin bu bir:

bir bu kodla hata var gibi görünüyor

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