麻烦老师帮忙看下要怎样在控件代码中加入指定的打印机打印

vip网上邻居

Private Sub CommandButton2_Click()
    ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End Sub

能不能在这个代码中加处在指定的打印机中打印要怎么加入     这个是打印机名不知道能不能加入到上面的代码中      EPSON LQ-690K ESC/P 2
————————————————————————————————————————————————————————————————

Private Sub CommandButton23_Click()
Application.ScreenUpdating = False                  '1关闭屏幕刷新
Sheets("销售周报").PrintOut From:=1, To:=1, Copies:=1, Collate:=True    '打印指定工作表
Application.ScreenUpdating = True                   '打开屏刷新
End Sub

能不能要这个代码中加处在指定的打印机中打印要怎么加入    这个是打印机名不知道能不能加入到上面的代码中    Lenovo M7650DF Printer
————————————————————————————————————————————————————————————
Private Sub CommandButton22_Click()
Application.ScreenUpdating = False                  '关闭屏幕刷新
Sheets("EMS特快").PrintOut     '打印指定工作表
Application.ScreenUpdating = True                   '打开屏幕刷新
End Sub

能不能在这个代码中加处在指定的打印机中打印要怎么加入     这个是打印机名不知道能不能加入到上面的代码中      EPSON LQ-690K ESC/P 2
——————————————————————————————————————————————————————————————

vip网上邻居

自己搞定了