DBGrid Drucken ?!

[Bummi]

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;

[Sir Rufo]

@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)

[Davidlocke13]

" // >> wobei hier noch verhältnisanpassungen fehlen"
und wie mache ich die ?

[Sir Rufo]

Zitat von Davidlocke13:

und wie mache ich die ?

???

[Davidlocke13]

Na die Verhältnisanpassung

[Bummi]

auf Papier aufmalen und überlegen was man wie in Abhängigkeit von was durchmultiplizieren und runden muss...

[Davidlocke13]

[p80286]

[OT]
Hab ich etwas nicht mitbekommen, oder ist das jetzt ein Wettbewerb "wie klatsche ich wem was vor's Bein"?

Zumindestens zwei Dinge hab ich jetzt gelernt
a) Finger weg von TDB...supersonderxtracomponents
b) Wer der englischen Sprache mächtig ist weiß seit #12 wie man die vorhandenen Daten zu Papier bringt.

Jetzt gibt's noch eine Bildschirmkopie gratis dazu [/OT]

Gruß
K-H