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

Life is soft - evento anual de software empresarial
   
Vista:

No encuentro el error al mandar imprimir

Publicado por Rosalina Vargas A. (2 intervenciones) el 15/02/2010 20:43:13
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder