excel - 将 Excel PDF 工作表保存在与我的 Excel 文件相同的目录中

Question

我编写了一个函数，将我的 Excel 工作表保存在我的 Excel 文件所在目录中的 PDF 文件中。一切正常，直到我将相同的功能复制到另一张纸上，之后，它只打印了一部分内容。这是我的 VBA 函数:

Sub stampa_ordine_pdf()
    Dim sNome As String
    Application.DisplayAlerts = False
    On Error Resume Next
    With ThisWorkbook
        sPath = .Path
        With .Worksheets("Ordine Munters")
            sNome = "Ordine N. " & .Range("C8").Value & _
                    " del " & Format(.Range("C7").Value, "dd-mm-yyyy")
            .ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:=sPath & "\" & sNome & ".pdf", _
                    Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, _
                    IgnorePrintAreas:=False, _
                    OpenAfterPublish:=False
        End With
    End With
End Sub

Answer 1

我同意 YowE3k，可能有一个打印区域设置正在修剪导出的范围。

Sub stampa_ordine_pdf()
    Dim FileName As String
    Application.DisplayAlerts = False
    On Error Resume Next

    sPath = ThisWorkbook.Path
    With Worksheets("Ordine Munters")
        sName = "Ordine N. " & .Range("C8").Value & _
                " del " & Format(.Range("C7").Value, "dd-mm-yyyy")

        FileName = ThisWorkbook.Path & "\" & sName & ".pdf"

        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=FileName, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=True, _
                OpenAfterPublish:=False
    End With

End Sub