Drucken - papersize

[Macpersil]

Hi,
habe erfolgreich eine 'Druckerprozedur' geschrieben.
Nun habe ich aber das Problem, dass der Drucker unten etwa 2.5 cm abstand lässt.
Dafür habe ich auch schon eine Lösung:
Druckereinstellungen -> Einstellungen vom Drucker -> Drucker Optionen -> Erweitert
-> Paper Size: A4
wählen und schon druckt er den unteren Rand wunderbar mit!

Für mich Persönlich ist das zwar eine Lösung, aber wenn ich das Programm weitergebe -> Lehrer
dann wird er sich schon wundern weshalb dort unten nicht alles auf dem Blatt ist was dort hingehört...

Ich habe natürlich schon fleißig gegoogelt und das dabei rausbekommen:

http://msdn.microsoft.com/de-de/libr...roperties.aspx

[...]
printersize
[...]

Voller Vorfreude fügte ich dies sofort in mein Programm ein
und dann kam die böse Erkenntnis das es Printer.Papersize gar nicht in Delphi gibt.....


Ich würde mich auf eure Lösungsvorschläge freuen!
Danke im Vorraus!

[cherry]

Zitat von Macpersil:

Hi,
habe erfolgreich eine 'Druckerprozedur' geschrieben.

Und wie hast du das gemacht? Hast du ein Tool wie Quickreport oder Ravereport verwendet, oder wie sieht deine Druckprozedur denn au
Dann würdest du das wohl am besten dort einstellen...

// Edit

du hast wohl das hier gesucht oder wie? bei uses "printers" nicht vergessen!

Delphi-Quellcode:

Printer.PageWidth := 210;
Printer.PageHeight := 297;

oder so ...

[himitsu]

jupp, alles ist nicht in Printer direkt drin.

http://www.delphipraxis.net/internal...003766#1003766
+ GetDeviceCaps > http://msdn.microsoft.com/en-us/library/dd144877.aspx

da gibt es Werte für Blattgröße, welche für die Größe des bedruckbaren Bereichs und dann noch welche für den linken oberen Rand (die anderen Ränder kann man sich daraus auch noch errechnen)

[Macpersil]

Delphi-Quellcode:

Printer.PageWidth := 210; 
Printer.PageHeight := 297;

sind leider nur ' read-only ' !

also festlegen kann ich da nichts!

[himitsu]

notfalls könnte man da bestimmt auch noch etwas über dem TPrinterSetupDialog einstellen

Als Grundeinstellungen müßte in TPrinter der Standarddrucker und dessen Grundeinstellungen eingestellt sein. (Standardpapierformat, Seitenränder Auflösung)

[Macpersil]

ja das geht auch ich verwende dazu im Moment den PageSetupDialog
aber bei einem Dokument das standardmäßig immer die gleiche größe hat, ist es etwas mühsam bei jedem druckauftrag die ränder auf 0 zu setzen!