Hi,

ich habe 2 Objekte. Eine PictureBox (picData) und ein Printer Objekt (prnObject).

folgende Befehle liefern unterschiedliche Ergebnisse:


MsgBox picData.TextWidth("Beispieltext")

MsgBox prnObject.TextWidth("Beispieltext")


Auf dem Printerobjekt benötigt der auszugebende Text immer einige mm mehr Platz als auf dem PictureBox Steuerelement. Das ist mir absolut unerklärlich. Der Text sollte doch egal wo ich ihn "drucken" möchte die gleiche Breite habe oder ???
Ich benötigen diese Funktion um einen sauberen Zeilenumbruch (Wortgenau) zu erzeugen. Dabei soll die Druckvorschau (picData) genau so aussehen wie nachher der Druck. Momentan kann es aber dazu kommen, dass der Druck 2 Seiten hat obwohl die Vorschau nur eine Seite hat.

Vielleicht hat ja einer von euch eine Idee oder einen Tipp wie ich das ganze umgehen oder korrigieren kann.


bye ...

LaMa5.

P.S. Der Font, die Größe und die Formatierungen sind natürlich bei beiden Objekten exakt gleich eingestellt.

Hi,

ich poste mal nen Beispiel mit dem ich eure Tipps getestet habe. Vielleicht habe ich da ja irgendwo nen Denkfehler drin.

Private Sub Form_Load()
Dim p As Printer
Set p = Printer
Me.Picture1.ScaleMode = vbMillimeters: p.ScaleMode = vbMillimeters
Me.Picture1.Font = "Times New Roman": p.Font = "Times New Roman"
Me.Picture1.FontSize = 12: p.FontSize = 12

Me.Label1 = Me.Picture1.TextWidth("Beispieltext")
Me.Label2 = p.TextWidth("Beispieltext")
End Sub

Für den Code wird eine PictureBox (Picture1) und zwei Label (Label1,Label2) benötigt.

Die Scalemode Eigenschaft ist definitiv gleich!!

Sobald eine Schriftart mit fester Zeichenbreite (Courier New) eingegeben ist funktioniert es so wie's soll. Aber wenn eine "vernünftige" Schriftart eingestellt ist, klappt das nicht mehr.
Bisher konnte ich auch noch kein System in den Unreglmäßigkeiten feststellen

Danke für die Hilfe.

bye ...

LaMa5.

Hi,

@Mad Andy
Schau Dir mal den Quelltext an, den ich weiter oben geschrieben habe, kopiere Ihn und setz die angegebenen Steuerelemente auf ein Formular und Du wirst sehen, dass die Differenz jedesmal unterschiedlich ist. Leider habe ich auch noch kein System erkannt.

Im Laufe der weiteren Programmierung habe ich jedoch festgestellt, das im PictureBox Steuerelement die Millimetergenaue Ausgabe von Text teilweise nach links oder rechts verrutscht (2-3 Pixel). Daher tippe ich drauf, dass in dem Steuerelement ein kleiner Bug ist.
Ich habe es allerdings noch nicht geschafft, ein VB6 ohne SP aufzusetzen um den Effekt dort zu testen.

Evtl. lässt sich das auch durch Installation von SP6 lösen. Diesen Schritt wollte ich aber zuletzt einsetzen, weil ich dann alle Entwicklungsrechner updaten muss.


bye ...

LaMa5.