将Excel PDF表单保存在与我的Excel文件相同的目录中

我写了一个函数，将我的Excel工作表保存在我的Excel文件所在的同一目录中的PDF文件中。 一切都运转良好，直到我将相同的function复制到另一张纸上，之后，它只打印一部分内容。 这是我的VBAfunction：

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