Canvas Zentriert ausdrucken

[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

[baumina]

Im Printersetup.

[p80286]

Zitat von Natcree:

Was kann ich denn machen. gibt es ne möglichkeit oder nen Codesnipsel mit dem ich die Pagewidth auf 8cm stellen kann?

Zitat von baumina:

Im Printersetup.

Zitat von Natcree:

Und nun ne andere papiersorte kann ich nicht einstellen

Könnte es sein, daß Du den Drucker außerhalb seiner Spezifikation betreibst?
U.U. wäre es sinnvoll uns mitzuteilen um welchen Drucker es sich handelt, und was für ein "Papier" Du bedrucken möchtest (Etiketten? Endlos?)

Gruß
K-H

P.S.
Könnte es sein, daß hier Pixel und Millimeter und ... durcheinander geworfen werden?
printer.PageWidth-canvas.TextWidth(caption))div 2, 0, Caption);

[Natcree]

also der drucker ist ein Thermodrucker TPG Color pos A795. hat 8cm breite bonrollen eingestellt ist der drucker papiergröße 8in. . Es gibt dort nur noch größere in. Werte.

[Sir Rufo]

Zitat von Natcree:

also der drucker ist ein Thermodrucker TPG Color pos A795. hat 8cm breite bonrollen eingestellt ist der drucker papiergröße 8in. . Es gibt dort nur noch größere in. Werte.

Ist das der Drucker hier:
http://www.racoindustries.com/axa795.htm

Wenn du die echte Breite nicht einstellen kannst, dann wird das so wohl nichts.

Wenn man nur ausrechnen könnte, wie breit 8cm in Pixeln auf dem Drucker ist, das wäre ja was, aber das muss bestimmt noch erfunden werden (kann auch sein, dass das Lehrstoff aus der Grundschule ist "Dreisatz").

[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.

[Natcree]

Der 8 in. ist ein gestellt die breite des Bon hat 8 cm vielleicht liegt es daran wie kann ich es ändern? er zeigt mir nur größere inch werte bei den druckereinstellungen an