Zitat von
shmia:
Delphi-Quellcode:
// (Win-)Control auf Drucker ausgeben
StringGrid1.PaintTo(printer.Canvas.Handle, 120, 200);
Problem ist jetzt nur, dass Bildschirm und Drucker unterschiedliche Auflösungen haben.
Ich habe das mal probiert, unabhängig von der Druckerauflösung zu drucken:
Delphi-Quellcode:
bmp := TBitmap.Create;
bmp.Height := SG.Height;
bmp.Width := SG.Width;
SG.PaintTo(bmp.Canvas,0,0);
rect.TopLeft.X := x;
rect.TopLeft.Y := y;
rect.BottomRight.X := x + GetPrintSize(dpihor,SG.Width);//Anpassung an mmHiMetric
rect.BottomRight.Y := y + GetPrintSize(dpihor,SG.Height);
PP.Canvas.StretchDraw(rect,bmp);
Der Nachteil ist, dass man offensichtlich das Bitmap immer mit 72 dpi vorliegen hat. Kann man das irgendwo einstellen? Die Alternative wäre, ein großes Grid mit großem Schriftgrad herunterzuskalieren.
Edit: das Grid wird beim PaintTo auch von der Zeilen- und Spaltenskalierung nicht korrekt dargestellt. Und nach dem PaintTo sind height und width auf unerklärlichen Werten. Scheint also besser, weiter zu Fuss zu zeichnen. Aber mit dem PaintTo kann ich endlich die OnDrawCell-Routine auslösen ohne etwas auf dem Bildschirm anzeigen zu müssen.
Grüße, Messie