Question

我遇到了一个非常奇怪的问题，前面有一段代码被讨论过here a while ago。

此代码用于完全按照以下方式执行操作：将打印区域内的工作表部分保存为PDF文件。但是，在更改同一Excel文件的另一个模块中的代码之后，此代码不再执行，而根本不返回任何错误消息。

如果有人可以在他们的机器上测试该代码并告诉我它是否有效或者至少返回任何错误，那将会很棒吗？代码如下;如有必要，我可以提供文件中其他模块的更多代码以及屏幕截图。非常感谢你的帮助！

Sub Invoice_to_PDF()
'Saves the invoice print area to a PDF file

Dim fp As String
Dim wb As Workbook
Dim ws As Worksheet

fp = "C:\Users\Matthias\Desktop\NewInvoice.pdf"
Set wb = ActiveWorkbook
Set ws = Worksheets("Invoice")

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Answer 1

代码效果很好，不会返回任何错误。在Excel 2010上测试，其中包含仅包含此方法和少量数据的新文件。

Excel打印到PDF - 没有返回错误代码就无法工作

1 个答案: