Private Sub Command1_Click() ''开始打印 'On Error Resume Next '防错 Set Printer = Printers(Combo2.ListIndex) '打印机选择 Printer.Print PrintEndDoc(Picture1, Text1) ' 打印 Printer.EndDoc Picture1.Print PrintEndDoc(Picture1, Text1) ' 浏览 End Sub Private Sub Form_Load() '{打印机列表 Combo2.Clear Dim DYJLB As P