Print kendskab?

Kode 

Option Explicit

Private Sub PrintDecAlign( _
    ByVal Device As Object, _
    ByVal DecimalPos As Single, _
    ByVal DecimalText As String)
    'DecimalPos is in mm.
    
    Dim DecimalPt As Integer
    
    DecimalPt = InStr(DecimalText, ".")
    If DecimalPt = 0 Then DecimalPt = Len(DecimalText) + 1
    With Device
        .CurrentX = .ScaleX(DecimalPos, vbMillimeters, .ScaleMode) _
                  - .TextWidth(Left$(DecimalText, DecimalPt - 1))
    End With
    Device.Print DecimalText; 'Can't use With for this, Print is a pseudo-method.
End Sub

Private Sub PrintLeftAlign( _
    ByVal Device As Object, _
    ByVal LeftPos As Single, _
    ByVal LeftText As String)
    'LeftPos is in mm.
    
    With Device
        .CurrentX = .ScaleX(LeftPos, vbMillimeters, .ScaleMode)
    End With
    Device.Print LeftText; 'Can't use With for this, Print is a pseudo-method.
End Sub

Private Sub Form_Load()
    Dim I As Integer
    
    Randomize
    Show
    
    Me.Print
    For I = 1 To 12
        PrintLeftAlign Me, 5, MonthName(I)
        PrintDecAlign Me, 40, Format$(Rnd() * 10000, "#,##0.00$")
        Me.Print
    Next
End Sub

Kode 

Private Sub Print_Click()
Dim sTemp As String, sTemp1 As String, sTemp2 As String

sTemp = Text(0) ' Description of Item
sTemp1 = Text(1) ' Amount of Item
sTemp2 = Text(2) ' Amount of Item
Call PlotToPrinter(sTemp, sTemp1, sTemp2)
End Sub




Public Sub PlotToPrinter(sData As String, sData1 As String, sData2 As String)
Dim nResult As Integer

Printer.Print
Printer.Font.Name = "FontA11"
Printer.Font.Size = 10
Printer.Font.Bold = False
Printer.ScaleMode = PIXELS

nResult = 35 - Len(sData) - Len(sData1) - Len(sData2) ' 35 is the lenght of the thermal paper
sData = sData & " x " & sData1 & Space(nResult) & sData2
Printer.Print sData


Printer.Font.Name = "control"
Printer.Print "F" 'Full cut
Printer.EndDoc
End Sub