Macro para Impresion

Amigos, que tal un favor inmenso, tengo una macro la cual toma como datos un
archivo txt que tiene los siguientes datos por ejemplo:

1
2
3
4
5
6

resulta que cada vez que toma el dato uso el comando:

ThisWorkbook.PrintOut

Quiero que imprima toda de un solo golpe, como hago, o que es lo que estoy
haciendo, por ejemplo cuando imprimo en un pdf, me genera un archivo para 1
y asi sucesivamente, quiero que imprima todo 1,2,3,4,5,6, ya que en la data
tengo mas de 4000 registros.

Mil gracias por su ayuda

Salu2

Juan Huachaca Gomez
Lima - Peru
Celular: (511) 9352-1798
msn: j_huachaca79@yahoo.es