横向另存为 PDF答案

【问题标题】：Save as PDF in Landscape横向另存为 PDF
【发布时间】：2014-04-16 19:51:53
【问题描述】：

如何将我的工作簿中的多张工作表以横向格式转换为一个 pdf？这就是我所拥有的。我缺少横向语法 -

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

谢谢！

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：

这段代码似乎有错误：ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="F:\Report\Test" & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties :=True, IgnorePrintAreas:=False
错误是什么？您实际上在驱动器F 上有文件夹Report 吗？
就是这样。我没有创建报告文件夹。谢谢！