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!!
.
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!¡
Gracias por responder!
Cambié el parametro "open" por "print" y funciona ;D, lo que pasa es que me habre la ventana del Adobe..
salu10!