लैंडस्केप में पीडीएफ के रूप में सहेजें

Question

मैं अपनी वर्कबुक में एकाधिक शीट्स को पीडीएफ में लैंडस्केप प्रारूप में कैसे पीडीएफ कर सकता हूं? यही सब कुछ मेरे पास है। मुझे लैंडस्केप सिंटैक्स गुम है -

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 

धन्यवाद!

Answer 1

प्रयास करें यह एक:

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