Question

我编写了一个小宏，它会获取每日Excel报告并将其打印到特定打印机（打印到PDF）。当我运行宏时，我仍然缺少最后的步骤。按原样运行，我仍然需要单击弹出的“保存”按钮，并且必须导航到正确的文件路径。有没有办法让它自动点击我的保存按钮，并将文件保存到正确的文件夹（如下面的代码所示）？

Sub printToPDF()

'declare variable for my file path
Dim filePath As String

'declare variable for my file name
Dim fileName As String

fileName = "Operations_Daily_Outage_Report_" & Format(Date, "yyyy-mm-dd")
filePath = "M:\Daily_Outage_Report\Active"

Worksheets("general_report").PageSetup.CenterVertically = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Foxit Reader PDF Printer"

End Sub

Answer 1

我想每个人都试图给你答案，你可以试试。我不确定为什么你不能只测试它并告诉我们它是否适合你？

如果你有一个相当新版本的Access（在过去10年内），那么你应该能够使用内置的Office PDF转换器

更改此行：

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Foxit Reader PDF Printer"

至此：

Worksheets("general_report").ExportAsFixedFormat Type:=xlTypePDF _    
   FileName:=filePath & "\" & fileName Quality:=xlQualityStandard

回来告诉我们它是否适合您。

使用正确的文件路径和正确的文件名打印到PDF

1 个答案: