kako da ukljucim multiline kod printera?

Code:
Private Sub PrintTextBox(ByRef cControl As TextBox)
Dim CurrentLeft     As Single
Dim iCurrPos        As Integer
Dim iLenght         As Integer

With cControl 'Inizio WITH cControl.
    Let CurrentLeft = .Left 
    Printer.CurrentY = .Top 
    Printer.CurrentX = CurrentLeft 
    Printer.FontName = .FontName 
    Printer.FontBold = .FontBold 
    Printer.FontItalic = .FontItalic 
    Printer.FontUnderline = .FontUnderline 
    Printer.FontSize = .FontSize 
    Let iLenght = 0 
    Do While iLenght < Len(.Text) 
        Let iLenght = iLenght + 1 
        If InStr(iLenght, .Text, vbNewLine) <> 0 Then 
            Let iCurrPos = InStr(iLenght, .Text, vbNewLine, vbTextCompare) 
            Printer.CurrentX = CurrentLeft 
            Printer.Print Mid(.Text, iLenght + IIf(iLenght = 1, 0, 1), IIf(iLenght = 1, iCurrPos - iLenght, iCurrPos - iLenght - 1))
            Let iLenght = iCurrPos 
        Else 
            Let iCurrPos = Len(.Text) 
            Printer.CurrentX = CurrentLeft 
            Printer.Print Mid(.Text, IIf(iLenght = 1, iLenght, iLenght + 1), iCurrPos)
            Exit Do 
        End If 
    Loop 
End With 

Printer.EndDoc 
End Sub


Private Sub Command1_Click()
    PrintTextBox Text1
End Sub