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

[hryyx]

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

[缘来一家人12]

这个是我用过的一个实例，我没有改过，稍理解一下!


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;