如何根据数据多少来确定打印纸张大小？

Question

比如我的数据有5行，则打印机走5行，如果我的数据有10行则打印机走十行？
FastReport可以吗？

Answer 1

这个是我用过的一个实例，我没有改过，稍理解一下!
           rquery1.close;
           rquery1.sql.Clear ;
           rquery1.sql.add('select * from vs_pos where (c_code='+quotedstr(master.fieldbyname('c_code').value)+')');
           rquery1.open;
           frReport1.LoadFromFile(posmainform.exepath + 'report\pos.frf');
          //小票设纸张长度************************************
filename:=ExtractFilePath(paramstr(0))+'setup.ini';
myinifile:=TInifile.Create(filename);
frreport1.Pages.pages[0].pgHeight:=frreport1.Pages.pages[0].pgHeight+myinifile.readinteger('printsetup','height',0)*rquery2.RecordCount;
myinifile.Destroy;
               frReport1.ShowReport;
               frPreview1.Clear;
               frPreview1.Visible:=true;
               frReport1.ShowReport;
               frPreview1.Print;