通过VBA将MS Excel 2003工作簿导出为PDF

Question

我有一个包含宏的Excel 2003工作簿，可以将其中某些工作表复制到新工作簿中，然后保存并关闭新工作簿。它会多次执行此操作，每次选择的表稍有不同。

我想在宏中添加一步操作，将辅助工作簿的电子表格导出为PDF。显然，使用PDF打印机和Excel内置的打印功能是解决此问题的明显方法，但大多数PDF打印机在完成前会弹出“另存为...”对话框。显然，为70多个场合单独输入这个对话框缺少吸引力-因此，我希望有一种方法可以预先设置它（可能是“使用我要打印的文件的文件名，去掉扩展名”），然后只需选择默认选项。

是否有任何免费的PDF打印机可以实现这一点？或者是否有适当的替代方案？

- Margaret

Answer 1

Office 2007可以实现这一点。我发现PDFCreator很不错，其中包含了示例文件中的VBA代码，并且听说CutePDF也很好用。PDFCreator和CutePDF都是免费的。

- Remou

Answer 2

作为Remou的（明智）答案的发展，因为这也是帮助我解决问题的方法。

我选择了pdfcreator（因为我已经安装了它），这就是我最终使用的东西。

Sub PDF_Print() 
    Dim p 
    p = ActivePrinter 
    ActivePrinter = "PDFCreator" 
    ActiveDocument.PrintOut 
    ActivePrinter = p 
End Sub 

运行得很好

- Diego Castro

Answer 3

这可能会有所帮助：http://www.pdf995.com

其中一个功能是“三个自动命名选项，绕过另存为对话框”

- dbb