指定打印机预览，怎么写vba

1310886999 · 发表于 2024-3-13 19:36

Private Sub CommandButton1_Click()
Sheets("食品").Range("b11").Value = ActiveSheet.Name
Sheets("食品").Range("a1:o12").PrintPreview
End Sub

老师，帮忙看看，因为电脑连接两台打印机，我想用指定的针式打印机达到预览效果，在此基础上怎么写呢？？

hzruziniu · 发表于 2024-3-14 00:03

https://club.excelhome.net/forum ... ead&tid=1257681

tanglf188 · 发表于 2024-3-14 09:18

Private Sub CommandButton1_Click()
currentprinter = Application.ActivePrinter '保存当前活动打印机
sel = Application.Dialogs(xlDialogPrinterSetup).Show
If sel Then MsgBox "您选择了打印机：" & Application.ActivePrinter
Sheets("食品").Range("b11").Value = ActiveSheet.Name
Sheets("食品").Range("a1:o12").PrintPreview
Application.ActivePrinter = currentprinter '恢复初始活动打印机
End Sub

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

[求助] 指定打印机预览，怎么写vba