VBA代码可以控制打印机属性吗？

枫丹白露 · 发表于 2013-1-14 13:30

能否编一段代码，来控制打印机的属性，一张打印的页数。

谢谢。

wpxxsyzx · 发表于 2013-1-14 13:51

application.Dialogs (xlDialogPrinterSetup).Show

枫丹白露 · 发表于 2013-1-14 13:58

wpxxsyzx 发表于 2013-1-14 13:51
application.Dialogs (xlDialogPrinterSetup).Show

这是选择打印机吧?
我要的是选择属性里,每张打印的页数,比如每张打印4页,

MarkZhang2023 · 发表于 2023-7-10 16:39

  ActiveWindow.SelectedSheets.PrintOut From:=1, to:=2, Copies:=1, Preview:=True, ActivePrinter:="打印机名称", PrintToFile:=True, Collate:=True, PrToFileName:=flase, IgnorePrintAreas:=False

名称说明
From 打印的开始页号。如果省略此参数，则从起始位置开始打印。
To  打印的终止页号。如果省略此参数，则打印至最后一页。
Copies  打印份数。如果省略此参数，则只打印一份。
Preview 如果为 True，Microsoft Excel 将在打印对象之前调用打印预览。如果为 False（或省略该参数），则立即打印对象。
ActivePrinter 设置活动打印机的名称?
PrintToFile 如果为 True，则打印到文件。如果没有指定 PrToFileName，Microsoft Excel 将提示用户输入要使用的输出文件的文件名。
Collate 如果为 True，则逐份打印多个副本。
PrToFileName 如果 PrintToFile 设为 True，则该参数指定要打印到的文件名。

tanglf188 · 发表于 2023-7-10 17:40

枫丹白露发表于 2013-1-14 13:58
这是选择打印机吧?
我要的是选择属性里,每张打印的页数,比如每张打印4页,

Application.Dialogs(8).Show

枫丹白露 · 发表于 2023-7-11 17:08

MarkZhang2023 发表于 2023-7-10 16:39
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=2, Copies:=1, Preview:=True, ActivePrinter:="打 ...

非常感谢，我试一下

		自动登录	找回密码
密码			免费注册

[求助] VBA代码可以控制打印机属性吗？

评分