使用VBA将MS Access报告打印到.xps文件

Question

我正在使用MS Access 2003并且每天早上都要分发七个不同的报告，我目前通过将每个报告打印到XPS文件来手动完成。每个报告的默认打印机已设置为XPS文件，我尝试了此代码：

DoCmd.OpenReport ("rptDaily_1of7")
DoCmd.PrintOut acPrintAll,1,,acHigh,1

当我使用它时，它会打开另存为框，但.tif是＆＃34;另存为类型＆＃34;领域。即使它不是，但理想情况下，我希望将文件路径和名称作为参数发送并让它处理整个过程（因此我可以使用循环来生成所有七个文件一个按钮）。我希望我可以使用另一个命令来执行此操作，或者可能使用其他方法。请注意，它不是我的机器，我没有管理员权限来安装任何其他东西（如pdf生成器等）。

Answer 1

您可以使用ReportToPDF by Stephen Lebans将报告创建为PDF文件。

这可以很容易地自动化（下载中有一个带有示例代码的MDB），您无需安装任何东西。
它带有两个DLL，您需要将它们放在与MDB / MDE相同的文件夹中，就是这样。没有安装/ DLL注册，只需用MDB / MDE分发两个DLL。

我们正在使用此功能每天从Access 2003打印数千份报告。