Bug in printers.pas beim Umstellen des Druckers

[BadenPower]

Hallo zusammen,

ich hänge mich einmal an diesen Post, das Problem mit den Druckereinstellungen bei mir immer noch ist.

Delphi2007

Ich habe die printer.pas bereits angepasst.

Die Auswahl des Druckers und die Papiergröße geht über TPrinterSetupDialog.

Wenn ich nun die PrinterSetupDialog.Execute ausführe und die Papiergöße ändere, dann wird die in der devMode-Struktur, welche ich über Printer.GetPrintewr erhalte der Wert von pDevmode^.dmPaperLength nicht geändert.

Rufe ich den SetupDialog nochmals auf und beende ihn, ohne etwas zu ändern, dann sind die Werte plötzlich richtig.


Hat jemand noch eine Idee, was in der printer.pas geändert werden muss, oder liegt das Problem hier irgendwo anderst.

Ein Vergleich einer 2009 oder 2010 printer.pas wäre perfekt, aber leider finde ich im Netz keinen Quellcode der Datei.

viele Grüße
BadenPower