Visual Basic - FileCopy archivo.txt, LPTn ??

Hola gente

La instrucción FileCopy, no permite usar la palabra reservada "LPT" etc,etc
Como hago para copiar un archivo de texto a una impresora ???

El archivo lo creo desde el programa, lo cierro, y luego la idea es imprimirlo, con lo cual "supuse" hacer un "copy" como en DOS.
Sino es esa la instrucción cual es ?

Saludos a todos y gracias
Alberto

La idea es crear el archivo de texto y luego mandarlo a imprimir a tu impresora local espero y te sirva saludos!!!
Private Sub cmdImprimir_Click()
Dim Eje
Eje = Shell("Print C:\ArchivoTexto.txt")
End Sub

Hola Miguel
GRACIAS POR CONTESTAR, si correcto esa es la idea, pero

no me funciona me dá ERROR 53 "no se ha encontrado el archivo"

Supongo que no me reconoce el "mandato PRINT" del DOS
ni "COPY...."
que te parece puede ser.

gracias y saludos
Alberto

Este codigo lo baje de la web no le he probado segun lo que hace es tomar la ruta de archivos que se encuentran en un listbox y los manda a imprimir haciendo un copy al puerto de la impresora utilizando un api espero y te sirva saludos!!!
Public Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)

Public Sub SendFileToPrinter()
Dim FileName As String
Dim s As Long
Dim i As Integer
Const CurPrnPort = "LPT1"
Const CurFolder = "C:"

For i = 0 To frmMain.List.ListCount - 1
If frmMain.List.Selected(i) Then
FileName = CurFolder & "\" & frmFileList.File.List(i)
s = SendToPort(FileName, CurPrnPort, vbNull)
frmMain.List.Selected(i) = False
End If
Next i
End Sub

Public Function SendToPort(sFileName$, sPortName$, lPltFailed&)
Dim s As Long
s = CopyFile(sFileName, sPortName, lPltFailed)
End Function