Visual Basic 6 - stampare file chiuso

buongiorno a tutti , grazie per le celeri e esaudienti risposte del topic precedente ,
vorrei sottoporre alla vs esperienza questo rompicapo dal quale non riesco a venirne a capo :
alla pressione di un pulsante dovrei stampare un file word chiuso (e che non deve aprirsi,composto da 1 pagina) che si trova nella directory : c:\documenti\ferie.doc
conosco l'istruzione print ma non riesco ad utilizzarla nel modo corretto.

In questo caso l'istruzione Print non serve.

Devi utilizzare COM per utilizzare un file Word.

Il prerequisito e' che ci sia Word installato nel computer in cui viene eseguito il programma.

Nel tuo programma dovrai referenziare la libreria di Word (menu Reference) e poi, nel codice, creare un oggetto di tipo

Word.Application

non visibile, aprire il file con il metodo Open dell'oggetto e stamparlo con il metodo PrintOut. Infine, dovrai chiudere il file.

ti spiacerebbe postarmi un esempio pratico ?
Mi sarebbe di un'utilità spaventosa.
Grazie

Guarda ... proviamo un po' piu' semplicemente ... vedi se questo codice

' Nelle dichiarazioni
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

' Nell'evento in cui stampi
Call ShellExecute(0, "Print", "Tuofile.doc", "", "", 16)

va bene per te ...

Grazie 1000 , e' proprio quello che fa al caso mio.

Rieccomi , il codice di prima è ok , ma se volessi dichiarare il file come una variabile ho provato a fare questo ma non funziona :

Private Sub CommandButton1_Click()
Dim X As filetypes
'
X = "Documento.RTF"

'
Call ShellExecute(0, "Print", "C:\Documents and Settings\Documenti\(X)", "", "", 16)
End Sub

Sono dell'opinione che sbaglio a dichiarare la variabile e a inserirla nella path

E ci credo ... ti sei inventato una tua "sintassi" ...

Deve essere

Call ShellExecute(0, "Print", "C:\Documents and Settings\Documenti\" & X, "", "", 16)