Question

所以我现在已经搜索了几个小时，但没有找到解决方案。我正在尝试将具有打印区域的纸张导出为PDF，但PDF布局与我在检查打印预览时看到的不同。

我正在使用excel 2010.

有谁知道为什么会这样。

我用来导出的代码

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        filename:=filename, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Answer 1

为什么不打印纸张并将打印机设置为PDF打印机，而不是导出文档。

Sub PrintTest() ' This will print multiple sheets based on a certain criteria
    Dim sh As Worksheet
    Dim arr() As String
    Dim i As Long: i = 0
    For Each sh In ThisWorkbook.Worksheets
        If Mid(sh.Name, 1, 4) = "Test" Then ' Change the conditional statement
            sh.PageSetup.Orientation = xlLandscape
            ReDim Preserve arr(i)
            arr(i) = sh.Name
            i = i + 1
        End If
    Next sh
    Dim printSheets As Variant
    printSheets = arr
    Worksheets(printSheets).PrintOut Preview:=False, ActivePrinter:="Adobe PDF", PrintToFile:=True, PrToFileName:=PSFileName
End Sub

Answer 2

终于找到了解决方案。显然它与设置有关。

在Excel中，转到文件＆gt;选项＆gt;高级。根据一般部分，取消选中“缩放A4或8.5 x 11”纸张尺寸的内容，然后单击“确定”。

导出excel到pdf布局更改

2 个答案: