EXCEL 怎么横向打印？ - 编程论坛

#2

kissis2022-10-25 09:15

试下E.ActiveSheetpagesetup.Orientation=xlLandscape

#3

yuma2022-10-25 17:42

回复 2楼 kissis

只有本站会员才能查看附件，请登录

#4

kissis2022-10-25 20:26

以下是引用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

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

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

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

#5

yuma2022-10-26 05:05

回复 4楼 kissis

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

#6

独木星空2022-10-27 14:29

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

#7

yuma2022-10-28 17:43

WIN10 X64 下 OFFICE2007测试不通过。

#8

yuma2022-10-29 18:38

以下是引用kissis在2022-10-25 20:26:44的发言：

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

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

#9

kissis2022-10-29 20:11

回复 8楼 yuma

只有本站会员才能查看附件，请登录

windows11 X 64 office2003运行通过

#10

kissis2022-10-29 20:50

以下是引用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编辑过]

#11

yuma2022-10-29 20:56

回复 9楼 kissis

win10 + office2003 可以运行了。

#12

yuma2022-10-29 21:08

很奇怪，PageSetup.Orientation=xlLandscape 这句不能在VBScript上运行。

#13

yuma2022-10-29 21:42

好了，感谢回复。