打印问题

[JB-Zhang]

我有一套系统，在机器上接一台打印机，在网络(局域网)上接一台打印机，我想通过程序一次性把数据同时发送到两台打印机同时打印输入，不知道可不可以实现，如可以请帮助。系统使用VB开发，谢谢

[planetike]

先取得当前所有的打印机机,然后打印一次,改换一个默认打印机后,再打印一次.帮你找找API


Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long

Public Declare Function WritePrinter Lib "winspool.drv" Alias "WritePrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long