如何从Vba Access中的Excel文件制作具有横向方向的PDF？

Question

我曾经使用以下代码从Access表单制作pdf文件：

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

我使用以下代码在Access中打印了带纵向方向的Excelforms：

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

对于横向我在Access中使用了这段代码：

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

但我需要通过Vba Access感谢

将Excel文件输出为PDF横向格式

Answer 1

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

Sheets(1).PageSetup.Orientation = xlLandscape

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

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

或者您可以遍历多个Sheets并在循环中设置其属性。此外，仅供参考：您可以使用基础xlLandscape值2。

希望这会有所帮助。