QUEBRA DE LINHA NO PRINTER

USUARIO.EXCLUIDOS 14/07/2005 11:19:44
#94095
COMO FAÇO PARA FAZER COM QUE O TEXTO A SER IMPPRESSO QUANDO FOR MUITO GRANDE PASSE A SER IMPRESSO NA PRÓ“XIMA LINHA .

VALEUUUU!!!!!!
PAGANINI 14/07/2005 12:07:49
#94120 Resposta escolhida 
Sub QuebraLinhaImpressao(Texto As String)
    Dim I As Integer
    Dim s As String
    s = ""
    For I = 1 To Len(Texto)
        s = s & Mid(Texto, I, 1)
        If Printer.CurrentX + Printer.TextWidth(s & "#") > Printer.ScaleWidth Then
            Printer.Print s
            s = ""
        End If
    Next
    If s <> "" Then
        Printer.Print s
    End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar