Hallo Sir Rufo,
hab´s verstanden, der Zusammenhang zwischen FontSize aus Fontdialog und der echten Größe unter Berücksichtigung der Druckerauflösung ist mir nun klar.
Ist wirklich super erklärt von dir
hab´s entsprechend eingebaut, funktioniert hat es aber erst nach dem ich folgendes rausgeschmissen hatte:
Delphi-Quellcode:
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); //0,1mm Einheiten X-Achse nach rechts jedoch Y-Achse nach oben
GetWindowExtEx(Printer.Canvas.Handle,w); //Drucker Auflösung ermitteln
GetViewPortExtEx(Printer.Canvas.Handle,v); //Abmessung des Viewports auslesen
SetMapMode(Printer.Canvas.Handle, MM_ANISOTROPIC);
SetWindowExtEx(Printer.Canvas.Handle, w.cx, w.cy,nil); //Druckerauflösung bestätigen
SetViewPortExtEx(Printer.Canvas.Handle, v.cx, -v.cy,nil); //Y-Achse kippen nach unten
Dazu findet man ja viele Foreneinträge unter dem Stichwort in Millimeter drucken.
Wollte das schon länger mal ausprobieren, scheitere aber immer an der Einstellung des Font, soll wohl nicht sein - oder hast du dazu noch eine Idee?
Gruß
Sidi61