打印

欧瑞博

sheet1打印机(EPSON LQ-635K ESC/P2),sheet2(Deli DL-886BW).先判断打印机是否成在，然后按指定打印机直接打印指定工作表。

代码如何写，哪位老师，前辈帮忙一下。

tanglf188

打印机名及端口根据实际情况调整
Sub AutoPrinter()
    currentprinter = Application.ActivePrinter '保存当前活动打印机
    If ActiveSheet.Name = "Sheet1" Then Application.ActivePrinter = "EPSON LQ-635K ESC/P2 在 Ne01:"
    If ActiveSheet.Name = "Sheet2" Then Application.ActivePrinter = "Deli DL-886BW 在 Ne02:"
    MsgBox "工作表：" & ActiveSheet.Name & "，打印机设置为：" & Application.ActivePrinter
   
    '打印代码
   
    Application.ActivePrinter = currentprinter '恢复初始活动打印机
End Sub