Im druck Zeilenumbruch erzwingen

[DeddyH]

Das mit dem ClientRect war ja auch nur ein Beispiel, Du musst das Rechteck schon passend definieren.

[m-werk]

Danke für die Hilfe, inzwischen hab ich es auch rausgefunden.

Jetzt funktioniert es.

Betreffend der Auflösung versteh ich nicht ganz, was damit gemeint ist.

[himitsu]

Du druckst in einer festen Größe (Pixel) ... was ist aber, wenn ein Drucker mal mehr oder weniger Pixel darstellt?

Dann verändert sich die größe der Pixel und damit auch die Größe deiner Schrift und aller anderen Maße (wie z.B. die Position der Texte).

Tipp: nimm eine Form, stell sie auf Vollbild und schreibe darauf einen Text (im OnPaint mit TextOut).
Und nun verstell man die Auflösung deines Monitors.

[m-werk]

Ok, da es aber nur Text ist, würden 72 Pixel reichen. Kann man irgendow einstellen, dass er NUR mit der vorgegebenen Auflösung druckt?

[Bummi]

Wenn Du nicht umrechnen willst kannst Du per
SetCanvasZoomAndRotation, hier enthalten
http://www.delphipraxis.net/167172-r...-ausgeben.html
das Printercanvas an die von Dir gewünschte Auflösung "umstellen"

[DeddyH]

Du kannst in Millimentern statt in Pixeln drucken. Dazu musst Du mit SetMapMode die Einheit umstellen. Ein kurzes Beispiel findest Du z.B. bei den Schweizern.

[m-werk]

Ich hab mir das Beispiel von den schweizen angesehen und habe Font.Height:=50; eingegeben.

Am Ausdruck ändert sich die Schriftgröße aber NUR in dieser Zeile:

Code:

Printer.Canvas.TextOut(3500,200,DateTimeToStr(now));

Bei den anderen Codezeilen, wo der Text von der DBEdit.Text stammt, ist die Schriftgröße immer gleich.

[Bummi]

Hast Du Deine anderen Fontsizeangaben entfernt=

[Bummi]

Lass die Zeile
if PrintDialog1.Execute then weg ....