Delphi Bild beim Ausdrucken kommt klein raus? - Delphi-PRAXiS

AGB · Datenschutz · Impressum

Nützliche Links

• Registrieren

Thema durchsuchen

Themen-Optionen

Bild beim Ausdrucken kommt klein raus?

Ein Thema von taktaky · begonnen am 9. Sep 2007 · letzter Beitrag vom 10. Sep 2007

Antwort

taktaky

(Gast)

n/a Beiträge

#1

Bild beim Ausdrucken kommt klein raus?

Alt

9. Sep 2007, 15:23

Hallo,

im Code finde ich nichts von zoom oder ?

zusammenfalten · markieren

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 !!!

Benutzerbild von bitsetter

bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge

Turbo Delphi für Win32

#2

Re: Bild beim Ausdrucken kommt klein raus?

Alt

9. Sep 2007, 20:38

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.

Gruß bitsetter

"Viele Wege führen nach Rom"

Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker

taktaky (Gast) n/a Beiträge	#3 Re: Bild beim Ausdrucken kommt klein raus? 9. Sep 2007, 22:53 markieren Delphi-Quellcode: _____ ___ __ _ _ _ _____ \| _ \ / \| \| \ \| \| \| \| / / \| ____\| \| \| \| \| / /\| \| \| \\| \| \| \|/ / \| \|__ \| \| \| \| / / \| \| \| \|\ \| \| \|\ \ \| __\| \| \|_\| \| / / \| \| \| \| \ \| \| \| \ \ \| \|___ \|_____/ /_/ \|_\| \|_\| \_\| \|_\| \_\ \|_____\|
	Zitat

taktaky

(Gast)

n/a Beiträge

#4

Re: Bild beim Ausdrucken kommt klein raus?

Alt

10. Sep 2007, 21:40

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

Delphi-Quellcode:

			If FileExists('test.txt') Then

bla bla

else

exit

end;

Delphi-Quellcode:

			   _____    _____    _   _   _____   _____  

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

| |     | |_| |  | | | | | |___  | |___  

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

| |_| | | | \ \  | |_| |  ___| |  ___| | 

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

Antwort

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Trackbacks are an

Pingbacks are an

Refbacks are aus

Gehe zu: