请教一个有关StringGrid的打印问题？

Question

1.直接打印窗体内容：
procedure TForm1.Button1Click(Sender:TObject);begin
if PrintDialog1.Execute then
  begin
    with Printer do
    begin
      BeginDoc;
      StringGrid1.PaintTo(Handle, 10, 10);
      EndDoc;
    end;
  end;end;
2.用FastReport、EReport等控件试试。

Answer 1

NO.1:我覺得
  你可能只能通過一句一句的寫入了 
var
  i,j:integer;
begin
  with youform.stringgrid do
   begin
     for i:= 1 to cols do
      接受數據//沒有在公司，不能試；
     
   end;
end;
NO2.:
  將數據倒入query中
  這種方法簡單；
  我在公司畅用然后就可以将QUERY里的数据像普通一样的应用；
  和各个QRLABEL；
  我想这种方法一定行的如果要的话请放下你的
EMAIL，明天给你发过去

Answer 2

谢谢ihihonline(小小) 朋友，我的Email:
 [email protected]
  期待！