ich hab eine Vorschau auf dem Bildschirm, da kann man auch die FontSize einstellen. DIese übernehme ich dann auch für den Ausdruck, leider druckt der Drucker die Zeichen aber kleiner
Warum nur ?
Die Programmdetails sind praktisch dieselben, einmal die Paintbox
Delphi-Quellcode:
paintbox1.canvas.font.name := aktfont;
paintbox1.canvas.Pen.color := clCaptionText;
fontsize := round(Main.aktuelleschriftgroesse/faktor);
paintbox1.canvas.font.size := fontsize;
fontheight := paintbox1.canvas.font.height;
und hier die Druckerroutine
Delphi-Quellcode:
Printer.canvas.font.name := aktfont;
fontsize := round((Main.aktuelleschriftgroesse/faktor)*faktor2);
Printer.canvas.font.size := fontsize;
fontheight := Printer.Canvas.Font.Height;
showmessage(IntToStr(fontheight));
faktor und faktor2 sind beide 1, also irrelevant. aktfont ist die der aktuelle Font.
Hat einer eine Idee woran es liegt ? Oder ist diese Ungenauigkeit einfach eine normale Begebenheit ?