Question

我正在处理一个Excel报表，该报表从另一个Excel工作簿中获取数据，导入数据并进行统计分析。将其移至工作表，并根据数据生成图形。所有这些都经过格式化以供打印。在为执行此操作而编写的宏中，有一个子宏，该宏将获取此报告并将其保存到网络驱动器中进行上传，并显示PDF，以便您进行打印。问题：创建PDF时，会在PDF顶部添加一行，指出“示例Excel文件另存为PDF”。这也在保存的PDF上，将作为文件的一部分上传到我们的HIS中。如何在PDF上获取此信息。它不是PDF的一部分，也不应该在PDF中。

下面是我用来设置PDF保存和打印的代码。

Sub Save_PDF()

     Dim Path1 As String
     Dim Path2 As String
     Path1 = "c:Test Result\...\"

'Range where spefic file name is placed for this occurance

     Path2 = Range("A79")

    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .PrintArea = "$A$1:$AE$75"
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
    End With

'Setup saves as report and place in drive for upload to HIS

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        filename:=Path1 & Path2, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, _
        IgnorePrintAreas:=False

Answer 1

建议您在此处使用与手动打印相同的驱动程序，因为那里没有问题。我在下面为我的系统记录了一个宏，然后添加了PrToFileName参数。建议您做同样的事情，并将其集成到您的代码中。

Sub TestPrinting()
' TestPrinting Macro

    Application.ActivePrinter = "Microsoft Print to PDF on xx01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Microsoft Print to PDF on xx01:", Collate:=True, IgnorePrintAreas:=False, _
        PrToFileName:="C:\Users\juna\Desktop\TestPDFPrint.pdf"

End Sub

删除标头示例Excel文件另存为PDF

1 个答案: