DBGrid Drucken ?!

[Davidlocke13]

Code:

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;

So habe das mal ausprobiert ! Druck zwar was aber nicht im richtigen Format