Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

    VB6 stampa documento word + access

    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
    Viveresiena.it : Informazioni e servizi su Siena e provincia

  2. #2
    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
    Viveresiena.it : Informazioni e servizi su Siena e provincia

  3. #3
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.