QuickReport让安装的所有打印机同时打印(多台打印)

uses Printers

示例代码如下

------------------

 

var
 i : 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;

 

____________