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?

Code:

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

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

[Steve]

Zitat:

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 ?

Delphi-Quellcode:

Printer.Orientation

:zwinker:

Stephan

[ObeY]

Zitat:

Zitat von Steve

Zitat:

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 ?

Delphi-Quellcode:

Printer.Orientation

:zwinker:

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