怎样在打印前固定纸张和打印机

ctrl_119 · 发表于 2012-5-25 08:36

本帖最后由 ctrl_119 于 2012-5-28 08:40 编辑

我电脑上装了2台打印机，有时候要交替打印，在打印的时候总是忘记切换打印机和纸张。
想实现只要是点击这个打印按钮就自动选择固定打印机和固定纸张来打印，
这几天在论坛中找了一下，只找到如何固定打印机的方法，
可是如何实现自动选择纸张就不行了··找到的语句是··ActiveSheet.PageSetup.PaperSize = xlPaper凭证······，“凭证”是我自定义设置的纸张名称。
有那位大大·帮我看看如何才能实现，在使用按钮打印的时候自动选择纸张呀。
代码如下:
If MsgBox("是否打印?", vbYesNo) = vbNo Then Exit Sub '询问提示
Application.ScreenUpdating = False
'Application.Dialogs(xlDialogPrinterSetup).Show 打印机选择
Application.ActivePrinter = "Star NX-510 在 lpt1:"
ActiveSheet.PageSetup.PaperSize = xlPaperpz
Sheets("凭证打印").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' ActiveSheet.PrintOut ActivePrinter:="Star NX-510"
Sheets("凭证录入").Select
If MsgBox("是否打印成功?", vbYesNo) = vbNo Then Exit Sub '询问提示

yujianroy · 发表于 2012-5-25 09:04

这个问题同问！！

yygpd500 · 发表于 2012-5-25 09:27

ActiveSheet.PageSetup.PaperSize = xlPaperpz 中的自定义纸张xlPaperpz改用数字常量表示？！如：ActiveSheet.PageSetup.PaperSize = 153
以上内容仅为猜测，未经实际检验。

提示：至于怎样才能知道xlPaperpz这一自定义纸张对应的数字常量为多少，可事先在页面设置中手动设置纸张型号为该自定义纸张，然后在VBE编辑器的立即窗口中通过输入命令Debug.Print ActiveSheet.PageSetup.PaperSize来得知。

ctrl_119 · 发表于 2012-5-25 14:18

能说下具体操作吗···看不懂呀··

ctrl_119 · 发表于 2012-5-28 08:29

顶一下··求解决

ctrl_119 · 发表于 2012-5-28 08:39

用宏录制一下··发现.PaperSize = 141··期中141就是我要的自定义纸张常量

cxh2010 · 发表于 2012-5-28 08:59

如果能把全部代码共享出来，那就更利于新手的学习了，若加上注释那就更完美了。

goldowl2011 · 发表于 2012-7-24 14:08

进行打印设置
ALT+F11 进入VBS
CTRL + G 进入立即窗口
Debug.Print ActiveSheet.PageSetup.PaperSize(回车)
VBA打印参数设置用到，谢谢！如A4 PaperSize =9,B5JIS PaperSize =13 ,B5 ISO PaperSize = 357 (office2010 test)

excel玉米 · 发表于 2019-10-23 09:47

学到了。真的很实用的技能

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

[已解决] 怎样在打印前固定纸张和打印机

评分