How to print a DrawGrid

[bobonwhidbey]

The TDrawGrid looks good on my monitor but I haven't figured out how to print it on the printer canvas. I think my biggest problem is getting aRect, although there's a good chance I'm going about this all wrong.

Code: Pascal  [Select][+][-]

1. procedure TMyForm.PrintClick(Sender: TObject);
2. var
3.   c, r: integer;
4.   aRect: TRect;
5. begin
6.   if PrinterSetup.Execute then
7.   begin
8.     Printer.BeginDoc;
9.     for c := 0 to Grid.ColCount - 1 do
10.       for r := 0 to Grid.RowCount - 1 do
11.       begin
12.         aRect := Grid.CellRect(c,r);
13.         DrawCelltoCanvas(Printer.Canvas, c, r, aRect, []);
14.       end; //  for c & r
15.     Printer.EndDoc;
16.   end; // printer executed
17. end;    

[paweld]

GridPrinter: https://wiki.lazarus.freepascal.org/GridPrinter

[bobonwhidbey]

I haven't been able to figure out how to use the GridPrinter with a TDrawGrid. The (quite good) documentation doesn't mention use with a TDrawGrid. What am I missing?

[wp]

I cannot remember every detail of that component, but you probably must provide a handler for the OnGetCellText event in which you tell the printer the text to be printed in a specific cell.

Or is it non-text printing you are after? In this case provide a small demo project showing the grid to be printed.

[bobonwhidbey]

I am printing text but I also need to control the font name and size in each cell.

In my DrawGrid onDrawCell I use my own FillRect and TextDraw, etc.  I discovered that the GridPrinter needs the OnPrintCell method. Thanks wp for getting me to look further under the hood.

[bobonwhidbey]

One last point.  How do I trigger a new page. Not needed when viewing the Grid but needed when printing. I can't use Printer.NewPage.

[wp]

Page breaks are determined by the component, when a row or column does not fit on the current page any more. IIRC, there is no way to manually trigger a page break. This does not mean that it's not possible, but it certainly will require some work.