Set C = CreateObject("Excel.Application")
Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx")
Set E = D.Worksheets(1)
E.PageSetup.Orientation=xlLandscape  '横向打印
E.Printout
D.Close True
Set C = Nothing

横向打印这句代码怎是出错，怎么改？需要横向打印。

去掉横向打印代码，就可以正常打印。

试下E.ActiveSheetpagesetup.Orientation=xlLandscape

可能跟Office 版本有关，我2003版本能正常打印

兄弟，你是什么版本系统？office2003是安装版的吧？

我现在用的Excel还是2003版的，没有办法，2007的虽然高级，但是后边的版本数据库我用不成。

WIN10 X64 下 OFFICE2007测试不通过。

不知你是不是信口雌黄，我在XP WIN7 Win10 系统下测试安装了 office 2003，运行程序还是提示：对象不支持此属性或方法...

windows11 X 64 office2003运行通过

以下是引用yuma在2022-10-24 21:16:55的发言：

Set C = CreateObject("Excel.Application")
Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx")
Set E = D.Worksheets(1)
E.PageSetup.Orientation=xlLandscape  '横向打印
E.Printout
D.Close True
Set C = Nothing

横向打印这句代码怎是出错，怎么改？需要横向打印。
c.ActiveSheet.PageSetup.Orientation = xlLandscape

[此贴子已经被作者于2022-10-29 20:51编辑过]