OPa pessoal eu tenho esse codigo pra imprimir e gostaria de saber se teria como quando o txt fosse mutiline os dados desse txt mudasse de linha , porq os dados se extenten pela folha e quando a largura da folha acaba ele naun muda de linha, obrigado  

 

Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim sql As String
On Error GoTo imperro
    'mostra a janela para impressora
    CommonDialog1.ShowPrinter
    'Captura os valores definidos pelo usuário na janela
    PaginaInicial = CommonDialog1.FromPage
    Paginafinal = CommonDialog1.ToPage
    numerodecopias = CommonDialog1.Copies
    For i = 1 To numerodecopias
  Printer.Print
MsgBox "Os dados foram enviados para a impressora ... ! ", vbInformation
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/yy"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(5); "AREAS --------------------------------"
Printer.Print
Printer.Print Tab(5); "Codigo       "; Tab(5); txtcod.Text
Printer.Print Tab(5); "CodigoImo     "; Tab(5); txtcodimo.Text
Printer.Print Tab(5); "Descricao   "; Tab(5); txtdesc.Text
Printer.Print Tab(5); "Lotes   "; Tab(5); txtlote.Text

Next
' acaba aki
Printer.EndDoc
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!", vbInformation
Printer.KillDoc
Exit Sub

Dê uma olhada neste tópico, se não resolver vamos partir para outra solução:

 

 

Jayme

opa parece q esse codigo ta cortando a frase no meio irmao

Dim Variavel As String
  Variavel = rsarea!Obs ' suponhamos que a variavel tem 80 caracteres
  If Len(Variavel) > 90 Then
    Printer.Print Mid(Variavel, 1, 90)
    Printer.Print Mid(Variavel, 91, 20)
  Else
    Printer.Print Variavel
  End If

onde eu delimito o tamnho total do texto Jayme ? o tamanho total da linha? por q tipo naun esta quebrando a linha sozinho desse jeito ve so , ap primeira linha come text e a segunda vai embora e naun para mais , nao quebra , mas o codigo é bom axo q eu naun vi a logica , ode ajudar por favor

 

Dim Variavel As String
  Variavel = rsarea!Obs ' suponhamos que a variavel tem 80 caracteres
  If Len(Variavel) > 90 Then
    Printer.Print Mid(Variavel, 1, 90)
    Printer.Print Mid(Variavel, 91, 2000)
  Else
    Printer.Print Variavel
  End If

Caso não conhecemos o tamanho do campo, podemos fazer assim:

 

Dim i, j, k  As Integer
Dim Variavel As String
Variavel = RSarea!Obs
If Len(Variavel) > 90 Then
  i = Variavel / 90      ' descobre o número de linhas
  If i - Int(i) <> 0 Then ' seo o resto da divisão for <> 0, soma 1
    i = Int(i) + 1
  End If
  k = 1
  For j = 1 To i
    Printer.Print Mid(Variavel, k, 90)
    k = k + 90
  Next
Else
  Printer.Print Variavel
End If

Jayme

deu erro de type mysmatch

i = Variavel / 90