[VBA ] 執行階段'1004':'ActivePrinter'失敗

[tabletenni (我要投保車險)]

  印報表時,印表機要指定特定印表機

  而不要用預設的印表機.

  但按列印報表時

  Show出執行階段錯誤'1004':

  'ActivePrinter'('_Application'物件)失敗

  偵錯時出現在這行程式

  Application.ActivePrinter = "Epson LQ-2170 ESC/P 2 on LPT1:"

  原始程式如下

  Private Sub CommandButton2_Click()

 Application.ActivePrinter = "Epson LQ-2170 ESC/P 2 on LPT1:"

 Worksheets("from").Visible = xlSheetVisible

 Sheets("from").Select

 ActiveWindow.SelectedSheets.PrintOut Copies:=1

 Worksheets("from").Visible = xlSheetVeryHidden

 End Sub

 請問各位問題出在哪?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.64.158.85