1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

  Printer.BeginDoc;
  Printer.Canvas.Pen.Color  := 0;
  Printer.Canvas.Font.Name  := 'Times New Roman';
  Printer.Canvas.Font.Size  := 15;
  Printer.Canvas.Font.Style := [fsBold, fsUnderline];
  Printer.Canvas.TextOut(0, 100, Printer.Title);
  for S := 1 to stringgrid2.ColCount - 1 do
  begin
    X1 := 0;
    for TmpI := 1 to (S - 1) do
      X1 := X1 + 5 * (stringgrid2.ColWidths[TmpI]);
    Y1 := 300;
    X2 := 0;
    for TmpI := 1 to S do
      X2 := X2 + 5 * (stringgrid2.ColWidths[TmpI]);
    Y2 := 450;
    TR := Rect(X1, Y1, X2 - 30, Y2);
    Printer.Canvas.Font.Style := [fsBold];
    Printer.Canvas.Font.Size := 12;
    Printer.Canvas.TextRect(TR, X1 + 50, 350, stringgrid2.Cells[S, 0]);
    Printer.Canvas.Font.Style := [];
    for TmpI := 1 to stringgrid2.RowCount - 1 do
    begin
      Y1 := 150 * TmpI + 300;
      Y2 := 150 * (TmpI + 1) + 300;
      TR := Rect(X1, Y1, X2 - 30, Y2);
      Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, stringgrid2.Cells[S, TmpI]);
    end;
  end;
  Printer.EndDoc;