高分求商场POS机打印乱码问题

打印机型号: EPSON TM U210A票据打印机
开发环境: WIN2K ADVANCE SERVER + VB6
问题: 
打印行数较少(7,8行)没有问题, 打到18行左右出现乱码并停止打印,不会自动切纸,到底是怎么回事,高分求救,谢谢!!!!例:
dim iTemp as integer
dim strprint as string     
strPrint = ""
     For iTemp = 1 To 50
        strPrint = strPrint & TruncStr(CStr(iTemp), "R", 40) & vbCrLf
     Next
     MsgBox Len(strPrint)
         Printer.Print ""
    Printer.Font.Size = 10
    Printer.Font.Name = "16 cpi"
         Printer.Print strPrint 
         Printer.EndDocPublic Function TruncStr(vString As String, vOrient As String, vCount As Integer) As String
    Dim strTemp As String
    strTemp 
    Select Case vOrient
        Case "R"
            TruncStr = Right(strTemp & vString, vCount)
        Case "L"
            TruncStr = Left(vString & strTemp, vCount)
        Case "M"
            If Len(vString) > vCount Then
                TruncStr = Left(vString, vCount)
            Else
                TruncStr = Right(strTemp & vString, (vCount - Len(vString)) / 2 + Len(vString))
            End If
        Case Else
            TruncStr = Left(vString, vCount)
    End Select
    
End Function