1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

begin
  if PrintDialog1.Execute then
   begin
    AssignPrn(PrintText);
    Rewrite(PrintText);
    Printer.Canvas.Font := Stringgrid1.Font;
    for Line := 0 to Stringgrid1.rowcount - 1 do
    Writeln(PrintText, stringgrid1.cells[0,Line]+stringgrid1.cells[1,Line]+stringgrid1.cells    [2,Line]+stringgrid1.cells   
    [3,Line]+stringgrid1.cells[4,Line]+stringgrid1.cells[5,Line]);
    CloseFile(PrintText);
   end;
end;