将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，可能有一个打印区域设置正在修剪导出的范围。

tickets_sold.belongsTo( models.locations, { targetKey: 'departure' } );
tickets_sold.belongsTo( models.locations, { targetKey: 'destination' } );