Printer.canvas Fontgrösse

[khh]

hallo zusammen,
ich drucke direkt auf die Printer.canvas mit einer definierten fontgrösse und einem definierten font.
BS Vista ;-)
(Arial 8)

leider ist der Ausdruck (auf 2 verschiednen Druckern getestet) viel kleiner als wenn ich zb aus word oder open office mit dem gleichen font und der greichen Schriftgösse drucke.
Woran liegt das, bzw was mache ich falsch?

Danke gruss KH

[Luckie]

Das habe ich bisher auch nicht rausgefunden. Ich habe dann einfach die Schriftgröße so gewählt, dass sie passt. das geht natürlcih nicht, wenn der Anwender die Schriftgröße ändern können soll -- ist bei mir aber Gott sei dank nicht der Fall.

[khh]

Zitat:

Zitat von Luckie

Das habe ich bisher auch nicht rausgefunden. Ich habe dann einfach die Schriftgröße so gewählt, dass sie passt. das geht natürlcih nicht, wenn der Anwender die Schriftgröße ändern können soll -- ist bei mir aber Gott sei dank nicht der Fall.

dann bin ich schon mal froh,dass das nicht meine Schuld ist.

In meinem fall muss der Anwender, zum Glück, die Schriftgrösse auch nicht ändern können.

Danke Gruss KH

[hoika]

Hallo,

Zeig doch mal den Code zum Setzen der Größe.
(sie Größe muss als -XX angegeben werden).

Am einfachsten macht es sich aber,
wenn man einen Reportgenerator benutzt (FreeReport z.B.)


Heiko

[khh]

ich habe einfach :

Delphi-Quellcode:

Printer.Canvas.Font.Size:= 22;

gemacht.

Der Reportgenerator (Lazreport) scheidet aus, weil das druckende Programm den Report nicht druckt :-(

Ursache scheint der Aufruf der exe per shellexecute zu sein.

beim Direktaufruf funktioniert der Druck per Report, ich kann aber nicht auf die Ausführung per shellexecute verzichten.


Gruss KH

[hoika]

Hallo,

versuch mal

Printer.Canvas.Font.Size:= -22;

oder

Printer.Canvas.Font.Height:= -22;


Heiko

[Luckie]

Nein, das bringt nichts. Das Minus berücksichtigt in der Schriftgröße nur die Unterlängen der Buchstaben.

[Satty67]

Font.PixelsPerInch (dpi) ist falsch.

Bei meinem Drucker mit 300dpi steht der Wert auf 254. Setze ich den auf 300 dann ist die Schriftgröße identisch mit anderen Dokumenten.

Also nach Wahl des Druckers Font.PixelPerInch auf dpi des gewählten Druckers einstellen. Das Canvas scheint die Schriftgröße beim initialisieren zu skalieren, keine Ahnung wo das passiert.

[himitsu]

hängt das nicht an der eingestellten Druckauflösung?

die Fontgröße stellt sich doch auf den Canvas ein und wenn beim Ausdruck die Pixel dann größer/kleiner sind, dann ändert sich damit auch die Schriftgröße (im Verhältnis zum Blatt ... im Verhältnis zu den Bildpunkten bleibt die aber soweit gleich)

entweder du paßt die Fontfgröße an die Druckauflösung an,
oder stellst die Druckauflösung auf ein einheitliches Maß ... such mal nach SetMapMode.

[khh]

also ich habe jetzt mit

Delphi-Quellcode:

Printer.Canvas.Font.PixelsPerInch:= GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);

die pixel eingestellt. Sind im konkreten Fall bei mir 600.
Jetzt passts! :dancer2:


ich danke euch


Gruss Kh