SAVE StringGrid to PDF

[dseligo]

I was just correcting your compiling error.

In procedure DrawLineUnderHeading you draw on your screen canvas, not on the PDF.

Add this above For loop in SaveToPDF procedure:

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

1. Page.DrawLine(15, YPos, 15 + StringGrid1.ColCount * 20, YPos, 1);

[seghele0]

Thanks for the code.
You can view the result in attachment.
After opening the PDF, a diagonal line is applied to the top left of the Form.
 

[dseligo]

Thanks for the code.

You're welcome

After opening the PDF, a diagonal line is applied to the top left of the Form.

You draw that line in procedure DrawLineUnderHeading. Don't call this procedure if you don't want that line.

[seghele0]

Attached I leave you the test application, with custom code.
Finally got hold of the code.
Thank you all and hopefully this is an instructive contribution for non-professional progrtammeurs.
 

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

1.    // Draw line below header
2.     YPos := YPos + HeaderHeight;
3.     Page.DrawLine(15, YPos, 30 + (StringGrid1.ColCount - 1) * 20, YPos, LineThickness);