哪位大侠知道怎样打印stringgrid？小弟成分感谢，并高分相送

Question

我知道TMS的控件是可以的，不过打印是英文界面的，而且难操作。不过同时它可以
生成多种文件格式，如html, xsl（？）。其实你也可以自己编程，搞一个html文件，
用ie打开就行了。
具体可以看 www.tmssoftware.com

Answer 1

使用PaintToprocedure TForm1.BtnPrintClick(Sender: TObject);
var
  I, Start, Stop: Integer;
  pointX,pointY : Double;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then
  begin
    with PrintDialog1 do begin
        Start := 1;
        Stop := 1;
    end;    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        StringGrid1.PaintTo(Handle, 10, 10);
        if I <> Stop then
           NewPage;
      end;
      EndDoc;
     end;
  end;
end;