如何从VBA访问中的Excel文件中以景观为方向制作PDF

Question

我曾经使用此代码从访问表单中制作pdf文件：

DoCmd.OutputTo acOutputForm,"FR_PFMEAPrint2", acFormatPDF,"PFMEAPrint2.PDF",   True

，我使用此代码在访问中打印了具有肖像方向的Excelforms：

Excel_App.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

，对于景观，我在访问中使用了此代码：

Forms("FR_Print").Printer.Orientation = acPRORLandscape
DoCmd.PrintOut acPages, 1, 1, , 1

，但是我需要通过VBA访问将Excel文件输出到PDF景观格式

Answer 1

您必须设置excel Sheet对象的属性，如下面的示例代码段所示：

Sheets(1).PageSetup.Orientation = xlLandscape

与您的情况相关，它看起来像：

Excel_App.ActiveWindow.SelectedSheets(1).PageSetup.Orientation = xlLandscape

，或者您可以通过多个Sheets迭代并将其属性设置在循环中。另外，仅供参考：您可以使用基础xlLandscape值2。

希望这会有所帮助。