QuickReport让安装的所有打印机同时打印(多台打印)
摘要：
uses Printers示例代码如下------------------vari : Integer;prn : TPrinter;begin try prn := Printer(); for i:=0 to prn.Printers.Count-1 do begin QuickRep.PrinterSettings.PrinterIndex := i; QuickRep.Print; end; finally end;end;____________ 阅读全文
posted @ 2012-01-03 02:08 DoubleCat 阅读(656) 评论(0) 推荐(0) 编辑