DBGrid ausdrucken

[Thomas F]

Hallo,

ich möchte gerne meine DBGrid ausdrucken, das klappt mit diesem Code auch relativ gut.

Problem ist nur, dass rechts beim Ausdrucken ein kleines Stück von der DBGrid fehlt,

nämlich genau das Stück , das man nur sieht wenn man nach rechts scrollt.

Auf dem Ausdruckt ist praktisch nur der auf dem Bildschirm sichtbare Teil der DBGrid zu sehen

Delphi-Quellcode:

procedure TForm1.Drucken1Click(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;

Weiss jemand was ich da ändern muss, um die ganze DBGrid auszudrucken?