![]() |
AW: DBGrid Drucken ?!
in ein StringGrid kann ich keine DataSource laden
|
AW: DBGrid Drucken ?!
Bis auf Cells wäre beim DBgrid alles zugreifbar (entsprechen veröffentlicht).
Trotzdem halte ich den Ansatz über das Gitter gehen zu wollen für weniger geeignet Vielleicht kannst Du damit was anfangen .. ![]() |
AW: DBGrid Drucken ?!
Kann damit leider nichts anfangen !
|
AW: DBGrid Drucken ?!
Code:
So habe das mal ausprobiert ! Druck zwar was aber nicht im richtigen Format
procedure TForm1.BtnDruckenClick(Sender: TObject);
var rect,rect1: TRect; begin rect:=bounds(0,0,DBGrid1.clientwidth,DBgrid1.Clientheight); rect1:=bounds(10,10,Printer.PageHeight,Printer.PageWidth); if printdialog1.Execute then begin printer.begindoc; printer.canvas.CopyRect(rect1,dbgrid1.Canvas,rect); printer.enddoc; end; end; |
AW: DBGrid Drucken ?!
Wenn du das etwas genauer spezifizieren könntest "nicht im richtigen Format"?
|
AW: DBGrid Drucken ?!
Liste der Anhänge anzeigen (Anzahl: 1)
|
AW: DBGrid Drucken ?!
Liste der Anhänge anzeigen (Anzahl: 1)
|
AW: DBGrid Drucken ?!
Copyrect kopiert einfach unskaliert auf das Canvas, was Du suchst dürfte so ähnlich aussehen
Delphi-Quellcode:
procedure TForm1.BtnDruckenClick(Sender: TObject);
var rect,rect1: TRect; bmp:TBitMap; begin bmp:=TBitMap.Create; bmp.Width := DBGrid1.clientwidth; bmp.Height := DBGrid1.Clientheight; try rect:=bounds(0,0,DBGrid1.clientwidth,DBgrid1.Clientheight); // >> wobei hier noch verhältnisanpassungen fehlen rect1:=bounds(10,10,Printer.PageHeight,Printer.PageWidth); bmp.canvas.CopyRect(rect,DBGrid1.Canvas,rect); if printdialog1.Execute then begin printer.begindoc; printer.canvas.Canvas.StretchDraw(rect1,bmp); printer.enddoc; end; finally bmp.Free; end; end; |
AW: DBGrid Drucken ?!
@bummi genau, denn ansonsten müsste man um ein Bild vom Mount Everest auszudrucken ein Papier mit 8848m Höhe haben (von der Breite mal ganz zu schweigen) ;)
|
AW: DBGrid Drucken ?!
" // >> wobei hier noch verhältnisanpassungen fehlen"
und wie mache ich die ? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz