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
浙公网安备 33010602011771号