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;
____________