Druck rechtsbündig

[khh]

Hallo zusammen,
mit :

Delphi-Quellcode:

        fdruckzeile :=   Format('%5.3f ', [Fmenge]) ;  
        Printer.Canvas.TextOut(frandlinks + cmtopixel(10.5,fdpih),frandoben + cmtopixel(zeile,fdpih) , fdruckzeile);

funktioniert auch einwandfrei.
Leider aber wird der Druck linksbündig ausgerichtet, was bei unterschiedlichen Weren besch... aussieht.
gibts ne _einfache_ Möglichkeit rechtsbündig zu drucken?


danke für eure Hilfe

Gruss KH

[Luckie]

Guck dir mal die Methode DrawText an.

[himitsu]

Dein Code:

Delphi-Quellcode:

Printer.Canvas.TextOut(frandlinks + cmtopixel(10.5,fdpih),
                       frandoben + cmtopixel(zeile,fdpih),
                       fdruckzeile);

Mit Verschiebung:

Delphi-Quellcode:

Printer.Canvas.TextOut(frandlinks + cmtopixel(10.5,fdpih) - Printer.Canvas.TextWidth(fdruckzeile),
                       frandoben + cmtopixel(zeile,fdpih),
                       fdruckzeile);

Die Position ist von Links gemessen und der Text geht nacht rechts.
Soll jetzt aber die rechte Seite des Textes ausgerichtet werden, dann könnte man auch mit dieser rechten Seite rechnen.

[Reinhard Kern]

Zitat von khh:

Leider aber wird der Druck linksbündig ausgerichtet, was bei unterschiedlichen Weren besch... aussieht.
gibts ne _einfache_ Möglichkeit rechtsbündig zu drucken?

Hallo,

gibt's eigentlich nicht, die übliche Lösung ist nicht rechtsbündiger Druck, sondern die Ausrichten in Spalten für Stückzahl, Bezeichnung usw. mit Tabs oder mit direkter Positionierung (Goto Spalte1, Drucke Anzahl, Goto Spalte2 ...).

Innerhalb der Spalten kann man dann noch links- (Text) oder rechtsbündig (Zahlen) drucken. Eine Excel-Tabelle ist eine gute Ausgangsbasis für Rechnungen.

Gruss Reinhard

[khh]

Zitat von himitsu:

Dein Code:

Delphi-Quellcode:

Printer.Canvas.TextOut(frandlinks + cmtopixel(10.5,fdpih),
                       frandoben + cmtopixel(zeile,fdpih),
                       fdruckzeile);

Mit Verschiebung:
Printer.Canvas.TextOut(frandlinks + cmtopixel(10.5,fdpih) - Printer.Canvas.TextWidth(fdruckzeile),
frandoben + cmtopixel(zeile,fdpih),
fdruckzeile);
Die Position ist von Links gemessen und der Text geht nacht rechts.
Soll jetzt aber die rechte Seite des Textes ausgerichtet werden, dann könnte man auch mit dieser rechten Seite rechne.

super, einfache Lösung _funktioniert_

danke euch

[Luckie]

Also ich fände DrawText mit den entsprechenden Flags einfacher.

[DeddyH]

Ich auch, zumal ich bei eigener Berechnung schon kleinere Rundungsungenauigkeiten hatte, bei DrawText dagegen nicht. Aber jeder so, wie er will.

[khh]

Zitat von Luckie:

Also ich fände DrawText mit den entsprechenden Flags einfacher.

ich hab drawtext natürlich auch ausprobiert. die Bestückung des Trect mit den Koordinaten, erscheint mir aber schwieriger, da ich diese ja Zeile für Zeile ändern muss.
Oder seht Ihr das anders?

[DeddyH]

Die Y-Koordinaten musst Du ja sowieso für jede Zeile ändern, von daher sehe ich da keinen großen Unterschied.

[khh]

Zitat von DeddyH:

Ich auch, zumal ich bei eigener Berechnung schon kleinere Rundungsungenauigkeiten hatte, bei DrawText dagegen nicht. Aber jeder so, wie er will.

welche Rundungsfehler sind da aufgetreten?