ola pessoal estou com um problema, estou usando um text box com multline e to usando o obj printer para imprimir o conteudo deste text box .. obs é direto do text box nao uso o recordset.. e tenho que limitar a largura do texto... no caso ele tem que quebrar as linhas com o comando Enter e quanto o tamanho da linha for maior que a largura programada !

Private Sub Command2a_Click()
If MsgBox("Iniciar Impressão?", 36, "Aviso do Sistema") = 7 Then
Exit Sub
Else
With Printer
    .ScaleMode = vbCentimeters
    .PaperSize = 9
    .FontName = "courier new"
    .FontSize = 10
    
Var_Texto01 = txtDesc1.Text
Var_Tamanho01 = 82
    .CurrentY = 16.5
For i = 1 To Len(Var_Texto01) Step Var_Tamanho01
    .CurrentX = 1.5
    Printer.Print Mid(Var_Texto01, i, Var_Tamanho01)
Next

    
    .EndDoc
    .ScaleMode = vbCentimeters
End With
End If
End Sub

essa formula é 10.. mas soh nao ta dando uma coisa.. quando ela vai imprimir da segunda linha em diante a coluna é zerada... nao imprimir na mesma posicao da primeira linha, porque ?

Coloca todo o codigo aqui para mim ver!