Question

EXCEL使用VBA代码，禁用自带的打印对话框，选择指定打印机进行打印。

通过添加按钮实现点击后打印文件，使用一个指定的打印机进行打印（假设有几个网络打印机已连接）。
打印区域为A1:J16

Answer 1

Sub printset()
'a = InputBox("打印机名字", "侦测", Application.ActivePrinter)   '如果不知道名字是什么，可以用此语句获取
 ActiveSheet.PageSetup.PrintArea = "A1:J16"
ActiveSheet.PrintOut ActivePrinter:="打印机名字"
End Sub

追问

禁用自带的打印对话框呢？
设置VBA打印的目的是对每一次打印都做记录，如果可以按CTRL+P用其他方式打印就没办法完整的记录到打印信息了。
最终打印记录文件要和打印出来的文件要做核对用的，必须保证打印在指定打印机并且和打印记录的内容一致。

追答

执行这个宏就自动打印了， 不会弹出打印对话框

追问

手痒去按下CTRL+P不就弹出了

追答

真尼玛蛋疼

追问

我说去按CTRL+P是夸张了，但是左上角点打印也是一样，操作的人如果是新手不是通过点击按钮打印，而是去左上角点击打印那一切不是白费了。

追答

你是想把原本的打印功能直接屏蔽调吗

追问

YES

追答

THISWORKbook 模块 输入代码：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "A1:J16"
ActivePrinter = "\\CHENYAN\HP LaserJet 1020 在 Ne03:"
此处是保存信息的代码，或者直接CALL 某个宏
End Sub

追问

屏蔽打印的代码呢？

追答

这个是打印前处理处理一些操作的代码， 不用再屏蔽了， 你点打印他就处理了你需要的功能了， 你把打印给屏蔽了， 还怎么打印

追问

额~
屏蔽这词是你先提出来的，我是想禁用弹出打印对话框，弹出打印对话框会导致打印的内容不被VBA记录，看来你还是不明白我的意思，EXCEL文档自带打印就可以跳过VBA代码打印，而我想要每次打印都是要通过VBA代码执行打印，这样打印的内容就被记录了。
你上面的代码不就是设定了下默认打印机和打印区域而已。

追答

这是个打印前， 执行代码的 事件，你把记录打印内容的代码写在这个里面， 每次打印的时候就会记录了呀， 我真是服了你了

追问

好吧，我理解你的意思了，能不能给个完整的代码呢。

追答

THISWORKbook 模块 输入代码：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "A1:J16"
ActivePrinter = "\\CHENYAN\HP LaserJet 1020 在 Ne03:"

n=sheets(2).[A65536].ROW
[A1:J16].copy SHEETS(2).CELLS(N+1,1) ‘把打印的内容复制到表2
End Sub

Answer 2

只是一个打印需求，没必要搞那么复杂，你可以先制定活动的打印机，然后再打印就可以了。如果一定要写需要用到WMI，比较复杂。1722187970

Answer 3

同求帮顶，希望高手快快出来解决。