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

我写了一个小的宏，它需要每日Excel报告并将其打印到特定的打印机（打印到PDF）。当我运行宏时，我仍然错过了最后的步骤。按原样运行它，我仍然需要点击弹出的“保存”按钮，并且必须导航到正确的文件路径。有没有办法让它自动为我保存按钮，并将文件保存到正确的文件夹中（如下面的代码所示）？以正确的文件路径和正确的文件名打印到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

来源

2016-08-02 Rivers31334

这是一个足够老的Excel版本，你不能保存为.pdf？或者是否有其他一些原因是通过PDF驱动程序打印的？ – Comintern

您有三种选择：https://support.office.com/zh-cn/article/Save-as-PDF-d85416c5-7d77-4fd6-a216-6f4bf7c7c110或https://msdn.microsoft.com/zh-cn/ us/library/windows/desktop/ms644950（v = vs.85）.aspx或https://msdn.microsoft.com/en-us/library/office/ff821075.aspx – cyboashu

如果我简单地保存为PDF，可以我仍然将它设置在'PageSetup.CenterVertically = False'的地方？其中一部分是我的学习练习。 – Rivers31334

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

如果你有机会（过去10年）的一个合理的新版本，那么你就应该能够使用内置Office PDF转换

改变这一行：

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

这样：

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

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

来源

2016-08-02 21:14:34 dbmitch

谢谢你的帮助。这并不是说我做不到，更多的是我对此感到陌生。对于你的眼睛有时候容易的解决方案对我来说并不容易。我们都在不同的层面上，尽可能多地学习是很好的。我感谢您的帮助。 – Rivers31334

很高兴为你效力。享受你的未来编码！ – dbmitch

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

回答

相关问题