我做了一个VB程序,点一下按钮后同时打印两种发票(套打),发票都为连续打印纸。我在一台微机上接了两台打印机怎么接?怎样控制给两台打印机分配不同的任务,自动切换默认打印机行么?

解决方案 »

  1.   

    Dim x 
         
         For Each x In Printers 
         Print x.DeviceName 
         Next 
        如果要指定使用某台打印机,可以使用下面的过程: 
        Sub SetPrinterByName(s As String) 
         Dim x 
         
         For Each x In Printers 
         If x.DeviceName = s Then 
         Set Printer = x 
         Exit Sub 
         End If 
         Next 
        End Sub 
        在打印前,调用 
         SetPrinterByName "PIC-PRINTER" 
        就可以切换到PIC-PRINTER,以后使用Printer对象输出就是通过PIC-PRINTER进行传真。 
        这种修改方法可以改变输出的打印机,但不会改变系统默认打印机,也就是说当你的程序退出后,系统的默认打印机仍然是原来的,不会给用户带来不方便。 
      

  2.   

    或者请参考http://search.csdn.net/Expert/topic/392/392672.xml?temp=.7357294
      

  3.   

    做成配置文件,动态的跟据用户设定自动更改打印机.如果用Printer,可以直接更改,如果用其它的,可能要使用API去改Windows的设置.