Postada em 8/1/2004 por Ozzys For i = 1 To 40 Printer.CurrentX = 1440 ' Seta a Margem Esquerda. Printer.CurrentY = (i * 300) Printer.Print "Essa e a linha " & Str$(i) & " do texto." On Error Resume Next ' Trata os erros If i = 26 Then Printer.KillDoc ' Termina o servico de impressao. Printer.EndDoc End End If Next i
