vb 打印

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
    Do While Len(str) > 0
        str1 = str
        Do While len1 > 0 And Printer.TextWidth(str1) - ConWid > len1
            str1 = Left(str1, Len(str1) - 1)
        Loop
        Printer.CurrentX = LeftPosition
        Printer.Print str1 '打印
        If Len(str1) = 0 Then Exit Do '不匹配
        str = Mid(str, Len(str1) + 1) '截断！
    Loop
End Sub
Private Sub PrintBC(prectl As Control)
    Dim I As Integer
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
    len1 = prectl.Width
    If prectl.BorderStyle = 0 Then
        ConWid = 90
    Else
        ConWid = -90
    End If
   
    Printer.CurrentX = prectl.Left
    Printer.CurrentY = prectl.Top
    Printer.Font.Name = prectl.Font.Name
    Printer.Font.Size = prectl.Font.Size
    'Printer.ForeColor = prectl.ForeColor
    str = prectl
    For I = 1 To Len(str)
        If I > Len(str) Then Exit For
        If Asc(Mid(str, I, 1)) = 13 Then