Salva come PDF in Landscape

Come posso inserire più fogli PDF nella mia cartella di lavoro in un pdf in formato orizzontale? Ecco quello che ho. Mi manca la sintassi del paesaggio -Salva come PDF in Landscape

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

Grazie!

fonte

2014-04-16 Chris2015

Provate questo:

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

fonte

2014-04-16 20:29:39

Sembra che ci sia un errore con questo codice: ActiveSheet.ExportAsFixedFormat Type: = xlTypePDF, Nome file: = "F: \ Report \ Test" e ".pdf", _ Qualità: = xlQualityStandard, IncludeDocProperties: = True, IgnorePrintAreas: = False – Chris2015

qual è l'errore? hai effettivamente la cartella 'Report' su drive' F'? –

Era così. Non avevo creato la cartella Report. Grazie! – Chris2015

Salva come PDF in Landscape

risposta

Problemi correlati