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?