How to Print a TStringGrid

Delphi/Pascal

procedure PrintGrid(GridToPrint: TSRingGrid; PageTitle: String); var   PosX1, PosX2: Integer;   PosY1, PosY2: Integer;   I: Integer;   F: Integer;   R: Rect; begin   Printer.Title := PageTitle;   Printer.BeginDoc;   Printer.Canvas.Pen.Color := 0;   Printer.Canvas.Font.Name := 'Arial';   Printer.Canvas.Font.Size := 12;   Printer.Ccnvas.Font.Style := [fsBold, fsUnderline];   Printer.Canvas.TextOut(0, 100, Printer.Title);   for F := 1 to GridToPrint.ColCount - 1 do   begin     PosX1 := 0;     for I := 1 to (F - 1) do       PosX1 := PosX1 + 5 * (GridToPrint.ColWidths[I]);     PosY1 := 300;     PosX2 := 0;     for I := 1 to F do       PosX2 := PosX2 + 5 * (GridToPrint.ColWidths[I]);     PosY2 := 450;     R := Rect(PosX1, PosY1, PosX2 - 30, PosY2);     Printer.Canvas.Font.Style := [fsBold];     Printer.Canvas.Font.Size := 7;     Printer.Canvas.TexRect(R, PosX1 + 50, 350, GridToPrint.Cells[F, 0]);     Printer.Canvas.Font.Style := [];     for I := 1 to GridToPrint.RowCount - 1 do     begin       PosY1 := 150 * I + 300;       PosY2 := 150 * (I + 1) + 300;       R := Rect(PosX1, PosY1, PosX2 - 30, PosY2);       Printer.Canvas.TexRect(R, PosX1 + 50, PosY1 + 50, GridToPrint.Cells[F, I]);     end;   end;   Printer.EndDoc; end;

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 31 32 33 34 35 36 37 38 39 40

procedure PrintGrid(GridToPrint: TSRingGrid; PageTitle: String); var   PosX1, PosX2: Integer;   PosY1, PosY2: Integer;   I: Integer;   F: Integer;   R: Rect; begin   Printer.Title := PageTitle;   Printer.BeginDoc;   Printer.Canvas.Pen.Color := 0;   Printer.Canvas.Font.Name := 'Arial';   Printer.Canvas.Font.Size := 12;   Printer.Ccnvas.Font.Style := [fsBold, fsUnderline];   Printer.Canvas.TextOut(0, 100, Printer.Title);   for F := 1 to GridToPrint.ColCount - 1 do   begin     PosX1 := 0;     for I := 1 to (F - 1) do       PosX1 := PosX1 + 5 * (GridToPrint.ColWidths[I]);     PosY1 := 300;     PosX2 := 0;     for I := 1 to F do       PosX2 := PosX2 + 5 * (GridToPrint.ColWidths[I]);     PosY2 := 450;     R := Rect(PosX1, PosY1, PosX2 - 30, PosY2);     Printer.Canvas.Font.Style := [fsBold];     Printer.Canvas.Font.Size := 7;     Printer.Canvas.TexRect(R, PosX1 + 50, 350, GridToPrint.Cells[F, 0]);     Printer.Canvas.Font.Style := [];     for I := 1 to GridToPrint.RowCount - 1 do     begin       PosY1 := 150 * I + 300;       PosY2 := 150 * (I + 1) + 300;       R := Rect(PosX1, PosY1, PosX2 - 30, PosY2);       Printer.Canvas.TexRect(R, PosX1 + 50, PosY1 + 50, GridToPrint.Cells[F, I]);     end;   end;   Printer.EndDoc; end;