Visual Basic para Aplicaciones - No encuentro el error al mandar imprimir

Hola!! , a continuación pongo código que tengo pero no se imprime nada de nada... pero le pongo otro archivo "Prueba.TXT" en lugar de "Recibo.PRN" y el primero si manda Imprimir el contenido del archivo, que me falta? porque no se manda imprimir el Archivo *.PRN???
Gracias.

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Sub Imprimir()
Dim strArchivo, strRuta As String

strArchivo = Worksheets("Imprimir Recibos").Range("C3").Value & ".prn"
strRuta = "C:\Recibos\"

ShellExecute 0, "print", strArchivo, "", strRuta, 0

End Sub