<code>Printer.ScaleMode = 6 
Printer.CurrentX = 15 
Printer.CurrentY = 20 
Printer.Font.Size = 12 
Printer.FontName = Arial 
Printer.Font.Bold = True 
Printer.Print "TOS" & " "; Label1.Caption & " " & Label2.Caption 
Printer.Font.Bold = False 
Printer.CurrentX = 15 
Printer.Print Label3.Caption & " " & Label4.Caption 
Printer.CurrentX = 15 
Printer.Print Label5.Caption & " " & Label6.Caption 
Printer.CurrentX = 15 
Printer.Print Label7.Caption 
PrintMutlilineTextBox Text1.Text, 15
Printer.CurrentX = 15 
Printer.Print Label8.Caption & " " & Label9.Caption 
Printer.CurrentX = 15 
Printer.Print Label10.Caption & " " & Label11.Caption 
Printer.CurrentX = 15 
Printer.Print Label12.Caption 
Printer.CurrentX = 15 
PrintMultilineTextBox Text2.Text, 15
Printer.EndDoc
 
Public Sub PrintMultilineTextBox(ByVal sText As String, ByVal X As Long)
  Dim sLine() As String
  Dim I As Integer
 
  sLine = Split(sText, vbCrLf)
  For I = 0 To Ubound(sLine)
    Printer.CurrentX = X
    Printer.Print sLine(I)
  Next I
End Sub</code>