Imprimir PDF sin ShellExecuteA

Iniciado por gulabyte, 24 Enero 2010, 21:55 PM

0 Miembros y 2 Visitantes están viendo este tema.

gulabyte


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

Imprimir archivo:
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

The Dark Shadow is my passion.

gulabyte


Gracias por responder!

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

salu10!