在程序中要求直接打印报表,而不用出现预览窗口,我看到有个事件printpreparedreport,但是不知道里面的PrintPages如何付值,程序如下:frreport1.LoadFromFile('i:\waisongold.frf');
frreport1.Preview:=nil;
if frreport1.PrepareReport then
   frreport1.PrintPreparedReport('',1,false,PrintPages);
是不是还有其他的办法?

解决方案 »

  1.   

    frReport1.PrepareReport;
    frReport1.PrintPreparedReport('', 1, True, frAll);
      

  2.   

    frReport1.LoadFromFile(ExtractFilePath(paramstr(0))+'test.frf');
      frReport1.PrepareReport;
      frReport1.PrintPreparedReport('',1,true,frAll);PrintPreparedReport有四个参数:
    参数1:PageNumbers:string //为空打印全部页,指定如"1,3,5-12" 即打印第1,3,5-12页
    参数2:Copies:integer//打印份数
    参数3:Collate:Boolean//是否自动分页
    参数4:PrintPages:TfrPrintPages // {frAll, frOdd, frEven} 全部 奇页 偶页