变量指代打印机名称

18713869556

变量指代打印机名称

Private Sub CommandButton1_Click()
Dim As print_name1 String
Dim As print_name2 String

print_name1="EPSON LQ-735K ESC/P2"
print_name2="HP Deskjet 3540 series"

If CheckBox1.Value = True Then                                                 '打印单据
   Sheet3.PageSetup.TopMargin = Sheet1.Range("R4")                             '页面的顶边距
   Sheet3.PageSetup.LeftMargin = Sheet1.Range("R5")                            '页面的左边距
   Sheet3.PageSetup.RightMargin = Sheet1.Range("R6")                           '页面的右边距
   Sheet3.PageSetup.FooterMargin = 5                                           '页脚
   Sheet3.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:=print_name1
End If

If CheckBox2.Value = True Then                                                 '打印合格证
   Sheet3.PageSetup.TopMargin = Sheet1.Range("T4")                             '页面的顶边距
   Sheet3.PageSetup.LeftMargin = Sheet1.Range("T5")                            '页面的左边距
   Sheet3.PageSetup.RightMargin = Sheet1.Range("T6")                           '页面的右边距
   ActiveSheet.PageSetup.PaperSize = xlPaperA4                                 '选择纸张
   Sheet3.PrintOut From:=2, To:=2, Copies:=1, ActivePrinter:=print_name2
End If

End Sub

运行时无任何响应，望高手指定

qh8600

附件都没有