Druckposition in mm festlegen Mit einer kleinen Umrechnungsfunktion lässt sich die Druckposition auch in mm bestimmten.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  24.704
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 55 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sicherlich kennen Sie das Problem: Sie verwenden für das Drucken von Texten den Standard Visual-Basic Befehl Printer.Print. Soll der Ausdruck nun an einer ganz bestimmten Position beginnen (z.B. oben=2cm und links=1.5 cm) so teilen Sie dies dem Printer-Objekt über die Methoden CurrentX und CurrentY mit. Die Angaben sind aber standardmässig immer in Twips vorzunehmen. Die nachfolgende Routine zeigt, wie Sie die Angaben auch in mm machen können.

' Umrechnungsfunktion "mm" nach Twips
Public Function mmToTwips(ByVal mm As Long) As Long
  Dim vContents As Variant
  Dim dTmp As Double
  Dim glwMeasure As Integer
 
  vContents = mm / 10
  dTmp = 1440 * vContents
  dTmp = dTmp / 2.54
  If dTmp >= 0 And dTmp <= 32767 Then
    mmToTwips = dTmp
  Else
    mmToTwips = 0
  End If
End Function

Hier ein Beispiel:

' Beginn des Ausdrucks an Position x=15 mm und y=20 mm
Printer.CurrentX = mmToTwips(15)
Printer.CurrentY = mmToTwips(20)
Printer.Print "vb@rchiv - www.vbarchiv.de"
 
' Falzmarke drucken
Printer.Line (mmToTwips(4), _
  mmToTwips(100))-(mmToTwips(6), mmToTwips(100))
 
' Druckauftrag starten
Printer.EndDoc