Usando Printer

[Guest DeniMalvadeza]

Quando vou imprimir uma listbox somente a primeira linha eu consigo tabular

as demais saem grudadas no canto esquerdo da página e não consigo tabular

as demais linhas alguém poderia me ajudar

Grato amigos

[Graymalkin]

Como você está fazendo?

Graymalkin

[Domguto]

Eu relacionei o um campo memorando de uma tabela acces

a uma textbox de nome txtfields(10)

quando vou imprimer eu uso o comando abaixo..

Printer.Print Tab(10); "Andamento: "; txtFields(10).Text

Printer.EndDoc

[Graymalkin]

Realmente, deste jeito só vai colocar um TAB porque você definiu que só um TAB deve ser inserido. Para inserir em todas as linhas você deveria fazer algo assim:

texto = txtFields(10).Text
linhas = split(texto, vbcrlf)
for each linha in linhas
  Printer.Print Tab(10); "Andamento: "; linha
next linha
Printer.EndDoc

Sacou?

Abraços,

Graymalkin

[Domguto]

sem querer abusar da paciencia o código ocorre o seguinte erro

"for Each may only itereite over a collection object or an array"

texto = txtFields(10).Text

linhas = Split(texto, vbCrLf)

For Each linha In linhas

Printer.Print Tab(10); "Andamento: "; linha

Next linha

Printer.EndDoc

o erro aparece bem na variavel sublinhada

eu criei a

[Graymalkin]

sem querer abusar da paciencia o código ocorre o seguinte erro

"for Each may only itereite over a collection object or an array"

texto = txtFields(10).Text

linhas = Split(texto, vbCrLf)

For Each linha In linhas

Printer.Print Tab(10); "Andamento: "; linha

Next linha

Printer.EndDoc

o erro aparece bem na variavel sublinhada

eu criei a

Não crie a variável. A mensagem de erro é porque a variável iteradora deve ser do tipo Variant. Se quiser você pode declará-la da seguinte maneira:

dim linha

Abraços,

Graymalkin