title image


Smiley Re: Zeilenlänge in mm?
Hallo erstaml,



so sollte es funzen:



Private Sub Command1_Click()

Dim sText As String

Dim lH As Long

Dim lW As Long



sText = "michi"

Form1.ScaleMode = 6 'mm

lH = Form1.TextHeight(sText)

lW = Form1.TextWidth(sText)

MsgBox "Breite " + CStr(lW) + ", Höhe " + CStr(lH)

Me.Print sText

End Sub



Du bekommst die Werte für den für Form1 eingestellten Font.

Geht auch für Printer und PictureBox.









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: