Wenas!!
Este código lo uso para imprimir archivos tipo .dod, .txt, .rtf
Imprimir archivo:
Código [Seleccionar]
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!!