Canvas Zentriert ausdrucken

[Natcree]

Hallo ich will mit folgendem Code ein String ausdrucken

Delphi-Quellcode:

Printer.BeginDoc;
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
printer.Canvas.Font.Size:=20;
caption:='Hallo';
Printer.canvas.TextOut((printer.PageWidth-canvas.TextWidth(caption))div 2, 0, Caption);
Printer.endDoc;

Jedoch kommt es nicht zentriert raus was kann ich da noch machen?

[Blup]

Code:

x := (xPosRechterRand + xPosLinkerRand - TextBreite) div 2;
Printer.canvas.TextOut(x, 0, Caption);

[Natcree]

wie bekomme ich po linker und rechter Rand ?

[Blup]

Wenn du selbst ohne eigenen Rand druckst und den gesamten druckbaren Bereich nutzen willst:

Delphi-Quellcode:

xPosLinkerRand  := 0;
xPosRechterRand := Printer.PageWidth;

[baumina]

Dann kommt wieder das gleiche raus, was der TE oben stehen hat

[baumina]

Ah ich hab den kleinen Fehlerteufel entdeckt:

Printer.canvas.TextOut((printer.PageWidth-printer.canvas.TextWidth(caption))div 2, 0, Caption);

[Natcree]

Klappt nicht ist ein bondrucker mit 8 inch papier. Wie kann ich die Pagewidth oder das papierformat ändern?

druckauflösung ist 202x204 pro inch

[Blup]

Normalerweise zentriert man auch über dem Dokumenteninhalt.
Wenn es denn unbedingt über die ganze Papierbreite sein soll, vieleicht so:

Delphi-Quellcode:

  xPosLinkerRand  := 0 - GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);
  xPosRechterRand := xPosLinkerRand + GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);

Allerdings muss dafür im Druckertreiber auch die richtige Papierbreite eingestellt sein.

Klappt nicht ersetzt übriegens keine Fehlerbeschreibung.