fastreport2.5中直接打印报表到打印机

 

个别情况下，我希望报表直接打印，而不需要预览，或每次都选择打印机以及更改打印设置。于是扩展了以下函数，直接将报表打印到指定打印机，所有信息预先设置，打印时就可以直接打印了。

新增如下函数 

function TfrReport.printto(printer:string;PageNumbers: string; Copies: Integer;
  Collate: Boolean; PrintPages: TfrPrintPages):boolean;

 begin
 
  self.SetPrinterTo(printer);
 
  self.PrepareReport;
 
  self.DoPrintReport(PageNumbers,Copies,Collate,PrintPages);

 end;

 function TfrReport.printto(printer:string):boolean;//简单形式

 begin
 
  result:=printto(printer,'',1,false,frall);//缺省值

 end;