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