关于STRINGGRID中内容的直接打印！？

[monsun]

delphi中支持直接打印的控件就TFORM各QUICKREPORT等，我把数据库中的数据显示在
STRINGGRID中了想直接打印其内容，有没有比较简单的办法。

[jackylee]

同意楼上的

[jackylee]

同意楼上的

[Apollo47]

printer.begindoc;
for i:=0 to StringGrid1.RowCount-1 do
begin
for j:=0 to StringGrid1.ColCount-1 do
begin
Printer.Canvas.TextOut(j*TempWidth,i*TempHeight,StringGrid1.Cells[j,i]);
Printer.Canvas.MoveTo(j*TempWidth,0); // 画列分隔线;
Printer.Canvas.LineTo(j*TempWidth,GridHeight)
end;
Printer.Canvas.MoveTo(0,i*TempHeight); // 画行分隔线；
Printer.Canvas.LineTo(GridWidth,i*TempHeight);
end;
Printer.EndDoc;

设置 TempWidth, TempHeight, GridWidth, GridHeight 来调整位置。