Para el documento Word:
Coloca en un formulario: 1 commandButton 1 CommonDialog y codificas lo siguiente:
Private Sub Command1_Click()
CommonDialog1.Filter = "Documentos de Word (*.doc)|*.doc"
CommonDialog1.DialogTitle = "Elija el documento de Word.."
CommonDialog1.ShowOpen
If Not IsNull(CommonDialog1.FileName) Then
Call ImprimirDocumentoWord(CommonDialog1.FileName)
End Sub
Public Sub ImprimirDocumentoWord(Fichero As String)
Dim Word As New Word.Application
Dim Channel As Long
'Abrimos el fitxero en word
Channel = Word.DDEInitiate("winword", """" & Fichero & """")
'Lo imprimimos
Word.DDEExecute Channel, "[FILEPRINT,0]"
'Cerramos el fichero
Word.DDEExecute Channel, "[FILEEXIT]"
'Txapamos el programa
Word.DDETerminate Channel
End Sub
Para el archivo texto:
1.- Podrías con una instrcucción Shell enviar un TYPE fichero >PRN ó TYPE fichero > LPT1 y debería imprimir el archivo.
2.- Extraer el contenido en un richtextbox y luego imprimir con el método que el ricttextbox tiene.