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 :thumb:

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

[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

[baumina]

Zitat:

Zitat von Natcree (Beitrag 1264274)

Klappt nicht ist ein bondrucker mit 8 inch papier.

Zitat:

Zitat von Natcree (Beitrag 1264280)

die breite des Bon hat 8 cm

8 inch sind 20.32 cm

[Natcree]

Und nun ne andere papiersorte kann ich nicht einstellen

[Natcree]

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

[p80286]

Zitat:

Zitat von Natcree (Beitrag 1264579)

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

Zitat:

Zitat von baumina (Beitrag 1264276)

Im Printersetup.

Zitat:

Zitat von Natcree (Beitrag 1264315)

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?

Delphi-Quellcode:

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:

Zitat von Natcree (Beitrag 1264585)

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").

[Natcree]

ja das ist der drucker. das mit dem ausrechnen währe kein problem. :-p wie kann ich ihm die werte setzen?

[Sir Rufo]

Was willst du wem da setzen?

Zeichne doch einfach nur in dem Bereich

[p80286]

Unter Umständen fehlt Dir http://www.cognitive.com/assets/down...9-9200302E.pdf dort solltest Du Dir mal "Print Zones for 80 mm Paper" anschauen.
Überhaupt ist das Manual recht interessant. Ggf. solltest Du überlegen den Drucker direkt mit den notwendigen Kommandos zu füttern.

Gruß
K-H

[Natcree]

danke das wars auf die idee wäre ich nicht gekommen. habe jetzt dem drucker 80 mm eingestellt und jetzt funtz es. Auf die einfachsten sachen kommt mann nicht gibt es ne möglichkeit den drucker per befehl auf ne ander papiergröße umzustellen. laut programming guide muss wieder ein string an den drucker geschickt werden. mit dem kassenladen öffnen hat es ja nun geklappt. bekommt man das ohn viel codebastelei hin?

[p80286]

Zitat:

Zitat von Natcree (Beitrag 1263581)

blup danke das war es jetzt klappt es

"Jungs" ihr seit einfach spitze ich danke euch

Wenn "es" klappt, was spricht dagegen die entsprechende Steuersequenz auf die gleiche Art an den Drucker zu senden?


Gruß
K-H