Bild beim Ausdrucken kommt klein raus?

[taktaky]

Hallo,

im Code finde ich nichts von zoom oder ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  DestRect:TRect;
Begin
 Printer.BeginDoc;

 DestRect.Left:=Printer.Canvas.ClipRect.Left + (Printer.Canvas.ClipRect.Right - Form1.Width) div 1;
 DestRect.Right:=DestRect.Left + Form1.Width;
 DestRect.Top:=Printer.Canvas.ClipRect.Top + (Printer.Canvas.ClipRect.Bottom - Form1.Height) div 1;
 DestRect.Bottom:=DestRect.Top + Form1.Height;
 Printer.Canvas.CopyRect( DestRect, Form1.Canvas, Form1.ClientRect);
 Printer.EndDoc;
end;

Das Bild im Druckvorschau kommt sehr klein raus !!!

[bitsetter]

Hi,

du kannst ja selber vergrößern:

Delphi-Quellcode:

Const
  Zoom = 10;
begin
...

  Printer.Canvas.CopyRect(Rect(DestRect.Left, DestRect.Top, DestRect.Right* Zoom, DestRect.Bottom* Zoom), Canvas, ClientRect);
  Printer.EndDoc;

Nicht getestet.

[taktaky]

Delphi-Quellcode:

  _____        ___   __   _   _   _    _____  
|  _  \     /   | |  \ | | | | / /  | ____| 
| | | |    / /| | |   \| | | |/ /   | |__   
| | | |   / / | | | |\   | | |\ \   |  __|  
| |_| |  / /  | | | | \  | | | \ \  | |___  
|_____/ /_/   |_| |_|  \_| |_|  \_\ |_____|

[taktaky]

Mit der Fehlermeldung, habe ich das Problem so gelöst

Delphi-Quellcode:

If FileExists('test.txt') Then
bla bla
else
exit
end;

:mrgreen:

Delphi-Quellcode:

   _____    _____    _   _   _____   _____  
/  ___| |  _  \  | | | | /  ___/ /  ___/ 
| |     | |_| |  | | | | | |___  | |___  
| |  _  |  _  /  | | | | \___  \ \___  \ 
| |_| | | | \ \  | |_| |  ___| |  ___| | 
\_____/ |_|  \_\ \_____/ /_____/ /_____/