1、
procedure TForm1.Button1Click(Sender:TObject);
begin
if PrintDialog1.Execute then
begin
with Printerdo
begin
begin
Doc;
StringGrid1.PaintTo(Handle, 10, 10);
EndDoc;
end;
end;
end;
//-------------------------
2、第二种方法，可以生成一个临时表，把stringgrid的内容写到临时表中，再打印出来
