Grafik mit zusätzlichen Strings drucken

**ObeY**

Hi Delphi Gemeinde,
ich wollte ein Bild drucken das als Datei vorliegt.
Zusätzlich möchte ich noch 4 Strings in das Bild reinschreiben ( die Strings können auch ausserhalb des Bildes liegen )
Die Bildgrösse kann ich selbst bestimmen da diese vorher dynamisch festgelegt wird.

Brauche nur einen A4 Quer- bzw Hochdruck.

QReports machen das ja ganz schön aber die sind ja nur für Datenbank abfragen gut.

Hatte mir Überlegt einfach ein TForm zu nehmen, die Größe entsprechen anzupassen + Image + Label Komponenten rein aber das kanns ja auch nicht sein, oder ?

Gruss

ObeY

**ObeY**

Ich hab mir jetzt mal einen PTrinterSetupDialog genommen.
Leider kann ich nach Beendigung des Dialogs nicht rausfinden oder der User nun Hoch- oder Querformat ausgewählt hat.
Oder geht das doch irgendwie ?

**MisterNiceGuy**

Du willst also einen Text auf ein Canvas schreiben?

markieren

Code:

image1.Canvas.TextOut(1,1,'Guckuck');

So gehts, ich hoffe, das war was du meintest!!

**Steve**

Zitat von ObeY:

Leider kann ich nach Beendigung des Dialogs nicht rausfinden oder der User nun Hoch- oder Querformat ausgewählt hat.
Oder geht das doch irgendwie ?

Printer.Orientation

Stephan

**ObeY**

Zitat von Steve:

Zitat von ObeY:

Leider kann ich nach Beendigung des Dialogs nicht rausfinden oder der User nun Hoch- oder Querformat ausgewählt hat.
Oder geht das doch irgendwie ?

Printer.Orientation

Stephan

ich hatte vergessen Printers in die Uses Liste einzutragen ...

@ MisterNiceGuy
intressante Möglichkeit. Werd ich mal versuchen.

**ObeY**

habs mit Orientation + PTrinterSetupDialog gemacht
funktioniert sehr gut

danke für die Hilfe

Grafik mit zusätzlichen Strings drucken

Grafik mit zusätzlichen Strings drucken

Re: Grafik mit zusätzlichen Strings drucken

Re: Grafik mit zusätzlichen Strings drucken

Re: Grafik mit zusätzlichen Strings drucken

Re: Grafik mit zusätzlichen Strings drucken

Re: Grafik mit zusätzlichen Strings drucken

Forumregeln

ObeY Registriert seit: 3. Jun 2004 7 Beiträge Delphi 5 Enterprise	#2 Re: Grafik mit zusätzlichen Strings drucken 3. Jun 2004, 10:19 Ich hab mir jetzt mal einen PTrinterSetupDialog genommen. Leider kann ich nach Beendigung des Dialogs nicht rausfinden oder der User nun Hoch- oder Querformat ausgewählt hat. Oder geht das doch irgendwie ? Thomas
	Zitat

MisterNiceGuy Registriert seit: 1. Jul 2003 Ort: Mannheim 919 Beiträge Delphi 7 Personal	#3 Re: Grafik mit zusätzlichen Strings drucken 3. Jun 2004, 10:35 Du willst also einen Text auf ein Canvas schreiben? markieren Code: image1.Canvas.TextOut(1,1,'Guckuck'); So gehts, ich hoffe, das war was du meintest!! Jonas Wenn mich jemand sucht, ich bin im Kühlschrank! Informationen über das Duale Studium www.jofre.de
	Zitat

ObeY Registriert seit: 3. Jun 2004 7 Beiträge Delphi 5 Enterprise	#6 Re: Grafik mit zusätzlichen Strings drucken 4. Jun 2004, 08:51 habs mit Orientation + PTrinterSetupDialog gemacht funktioniert sehr gut danke für die Hilfe Thomas
	Zitat