L Lambert Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-24 #2 QuickRep1上放DetailBand1,DetailBand1上放QRLabel1 定义一个全局变量i 在QuickRep1.BeforePrint中i:=0; 在QuickRep1.OnNeedData中 begin MoreData:=(i<=StringGrid1.Rows.Count); end; 在DetailBand1.BeforePrint中 begin QRLabel1.Caption:=StringGrid1.Cells[i,0]; QRLabel2.Caption:=StringGrid1.Cells[i,1]; .... Inc(i); end;
QuickRep1上放DetailBand1,DetailBand1上放QRLabel1 定义一个全局变量i 在QuickRep1.BeforePrint中i:=0; 在QuickRep1.OnNeedData中 begin MoreData:=(i<=StringGrid1.Rows.Count); end; 在DetailBand1.BeforePrint中 begin QRLabel1.Caption:=StringGrid1.Cells[i,0]; QRLabel2.Caption:=StringGrid1.Cells[i,1]; .... Inc(i); end;
C cw2 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #6 用lambert的方法，输出的都在一行上面。没有办法输出所有行...
L liuwen Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-27 #7 http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=137004 用stringgrid.paintto(printer.canvas.handle, 0, 0) 我做是时会出现打印太小，只好用背地里放大的做法，很笨，你自己在看看！
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=137004 用stringgrid.paintto(printer.canvas.handle, 0, 0) 我做是时会出现打印太小，只好用背地里放大的做法，很笨，你自己在看看！
