Druckposition in mm festlegen Mit einer kleinen Umrechnungsfunktion lässt sich die Druckposition auch in mm bestimmten.
Autor:   Dieter Otter	Bewertung:	Views:  23.992
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.