Imprimir PDF sin ShellExecuteA

[gulabyte]

Wenas!!
Este código lo uso para imprimir archivos tipo .dod, .txt, .rtf

Imprimir archivo:

Código [Seleccionar] Expandir

Public Sub Imprimiu(Path As String)
   
    Dim AppWord
    Dim DocWord
   
        'Asignar el documento
        Set AppWord = CreateObject("word.application")
        Set DocWord = AppWord.Documents.Open(Path)
       
        'Imprimir en segundo plano
        AppWord.Documents(1).PrintOut
       
        'Comprobar que Word no sigue imprimiendo
        Do While AppWord.BackgroundPrintingStatus = 1
        Loop
        'Cerrar el documento sin guardar cambios
        AppWord.Documents.Close
        'Liberar
        Set DocWord = Nothing
        'Cargamos el objeto creado
        AppWord.Quit
        Set AppWord = Nothing

End Sub

Aunque con este código creo que hay que tener Word instalado para imprimir el documento..

Y por otra parte si el archivo es .pdf lo hago con ShellExecuteA(Me.hwnd, "print", Path, "", "", 1)...

¿Hay alguna forma de imprimir archivos de texto (y PDF) sin usar la API ShellExecuteA?

salu10!!

[BlackZeroX]

.
No es el API pero... espero que te sirva xP

http://foro.elhacker.net/programacion_vb/source_shellexecute_sin_declaracion_api-t281057.0.html

Temibles Lunas!¡

[gulabyte]

Gracias por responder!

Cambié el parametro "open" por "print" y funciona , lo que pasa es que me habre la ventana del Adobe..

salu10!