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 aquí 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 alguien 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