[VB6] Stampa documento Word + Access

[eaval]

Buongiorno a tutti ,

avrei da sottoporvi il mio problema di stampa di un documento word da Vb6. Attualmente all'apertura del mio documento Word preleva dinamicamente tramite query i campi da un db Access, vorrei riuscire a far partire la stampa del documento dinamicamente da Vb6 passandogli anche i parametri per eseguire la query . Ho provato a utilizzare il seguente codice ma mi apre il documento word e non implementa la ricerca sul Db.

Grazie a tutti.

Private Sub Form_Load()
' DICHIARO UN NUOVO OGGETTO MS WORD

'definisce che oggetto è objWord (in questo caso è
'una nuova applicazione Word)
Dim objWord As Word.Application
'ora che objWord è dichiarato si vuole effettivamente 'aprire questa nuova applicazione Word
Set objWord = New Word.Application
'si rende visibile Word
objWord.Visible = True
'definisce che oggetto è objDoc (in questo caso è
'un nuovo documento Word)
Dim objDoc As Word.Document
'ora che objDoc è dichiarato si vuole effettivamente 'aprire questo nuovo documento
Set objDoc = objWord.Documents.Open("c:\Prova\Documento.doc")
'rende attivo il documento appena creato
objDoc.Activate

End Sub

[eaval]

Sono riuscito ad aprire il mio documento word e gli ho fornito la connessione alla tabella access , l'unico problema è che una volta aperto il documento non mi appaiono direttamente i dati prelevati dalla tabella ma debbo dalla barra degli strumenti cliccare sulla casella "Visualizza dati uniti" e mi appaiono i dati corretti al posto dei campi unione.
C'è forse qualche parametro che mi sfugge ?

Grazie.

Allego codice corretto (forse ) :

Private Sub Form_Load()
' DICHIARO UN NUOVO OGGETTO MS WORD

'definisce che oggetto è objWord (in questo caso è Una nuova applicazione Word)
Dim objWord As Word.Application
'ora che objWord è dichiarato si vuole effettivamente aprire questa nuova applicazione Word
Set objWord = New Word.Application
'si rende visibile Word
objWord.Visible = True
'definisce che oggetto è objDoc (in questo caso è un nuovo documento Word)
Dim objDoc As Word.Document
'ora che objDoc è dichiarato si vuole effettivamente 'aprire questo nuovo documento
Set objDoc = objWord.Documents.Open("c:\prova.doc")
'rende attivo il documento appena creato
objDoc.Activate

Dim strConnection As String

With ActiveDocument.MailMerge
.MainDocumentType = wdFormLetters
strConnection = "DSN=MS Access Databases;" _
& "DBQ=MioDatabase.mdb;" _
& "FIL=RedISAM;"
.OpenDataSource Name:="c:\MioDatabase.mdb", _
Connection:=strConnection, _
SQLStatement:="SELECT * FROM T01_Tabella where T01_indice=1"
End With

objDoc.PrintOut
End Sub

[sosan1]

Questo esempio utilizza la stampa unione, dai un occhiata se ti può essere utile, l'istruzione che unisce i dati è la seguente
wrdMailMerge.Execute(False)





Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim wrdSelection As Word.Selection
Dim wrdMailMerge As Word.MailMerge
Dim wrdMergeFields As Word.MailMergeFields

Dim StrToAdd As String

' Create an instance of Word and make it visible.
wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False

' Add a new document.

wrdDoc = wrdApp.Documents.Open("C:\mio.doc")
wrdDoc.Select()

wrdSelection = wrdApp.Selection()

wrdDoc.MailMerge.DataSource.QueryString = wrdDoc.MailMerge.DataSource.QueryString & " where miatab.id=3"
wrdMailMerge = wrdDoc.MailMerge()

' Perform mail merge.

wrdMailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument

wrdMailMerge.Execute(False)





wrdSelection = Nothing
wrdMailMerge = Nothing
wrdMergeFields = Nothing
wrdDoc = Nothing
wrdApp = Nothing


End Sub