Imprimir TXT desde Excel

Hola, tengo una hoja de excel, en la cual lleno algunas celdas, mediante una macro, y en base a la información capturada, genero un archivo TXT, hasta aqui no hay problema, pero... mediante una segunda macro, quiero imprimir el contenido del archivo TXT a la impresora, pero no hace nada... envío el primer código empleado y el último, ya estoy casi loco, no dudo que alguién me pueda ayudar, de antemano mil gracias por el tiempo tomado para mi problema.
Un abrazo y hasta la próxima.

Sub ImprimeArchivo()
Dim Registro As String
Open "C:\Archivo.TXT" For Input As #1
'Open "HP DeskJet 950C/952C/959C en Ne01:" For Output As #2
'Open "USB001:" For Output As #2
Open "LPT1:" For Output As #2
While Not EOF(1)
Input #1, Registro
Print #2, Registro
Wend
Close 1
Close 2
End Sub

Éste es el segundo método y tampoco me funciono....
Sub ImprimeArchivo()
Dim Registro
Dim AImpresora As String
AImpresora = ActivePrinter
Set printer = AImpresora
Open "C:\Archivo.TXT" For Input As #1
Entrada = 0
Printer.Print ""
Set printer.DeviceName = AImpresora
While Not EOF(1)
If Entrada = 0 Then
' Printer.devicename = "HP DeskJet 950C/952C/959C en Ne01:"
' Printer.port = "Ne01:"
Printer.FontName = "Tahoma"
Printer.FontBold = True
Printer.FontSize = 16
Entrada = 1
End If
Input #1, Registro
printer.Print Registro
If Entrada = 1 Then
Printer.FontBold = False
Printer.FontSize = 11
End If
Wend
Close 1
printer.EndDoc
End Sub

Hola Gracias por la pronta respuesta, si me funcionó, pero... me desconfigura el formato, sale todo desalineado... :-s
Alguna sugerencia...?
 
Gracias anticipadas, por la pronta respuesta y por tu tiempo.
 
Saludos.

Muchas Gracias, ya te envié el archivo excel y el txt, saludos.