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

我已经写了一个小的macros，需要每天的Excel报告，并打印到特定的打印机（打印到PDF）。 当我运行macros，我仍然错过了最后的步骤。 按原样运行，我仍然需要点击popup的“保存”button，并且必须导航到正确的文件path。 有没有办法让它自动为我保存button，并将文件保存到正确的文件夹（如下面的代码所示）？

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

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

如果你有一个合理的新版本的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 

回来告诉我们，如果它为你工作。