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

    generazione di documenti Word con stampa unione

    Ho scitto un aroutine che mi permette di generare, e successivamente stampare, dei documenti di word.
    Purtroppo quando genero il documento (alla apertura di Word) viene visualizzata la richiesta di esecuzione della query di selezione dei dati.
    Come posso fare per non farla apparire e far proseguire Word sino alla stampa? (c'è qualche impostazione in Word che elimini la richiesta?)
    Una soluzione potrebbe essere quella di inviare un comando che simuli la pressione dei tasti TAB+INVIO ma non so come scrivere il comando.
    Mi potete aiutare?

    La routine che ho preparato è la seguente

    Set WrdApp = New Word.Application
    WrdApp.Visible = False
    WrdApp.Documents.Open (txtWorDoc), ReadOnly:=True

    qui andrebbe inserito il comando di invio, a Word, dei tasti TAB+INVIO

    WrdApp.ActiveDocument.PrintOut
    WrdApp.Quit wdDoNotSaveChanges


    Grazie.

  2. #2

  3. #3
    Dopo parecchio tribulare ho risolto il mio problema con la routine di seguito riportata.

    Set WrdApp = Nothing
    Set WrdApp = New Word.Application
    WrdApp.DisplayAlerts = wdAlertsNone
    WrdApp.Visible = False
    WrdApp.Documents.Open (txtWorDoc)
    WrdApp.ActiveDocument.MailMerge.OpenDataSource Name:= _
    MioFileDati.Xls , ConfirmConversions:=False, ReadOnly:=False _
    , LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
    PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
    "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
    "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";Us er ID=Admin;Data Source=" & MioFileDat.Xls & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine Type" _
    , SQLStatement:="SELECT * FROM `Foglio1$`", SQLStatement1:="", SubType:= _
    wdMergeSubTypeAccess
    WrdApp.ActiveDocument.MailMerge.ViewMailMergeField Codes = wdToggle
    WrdApp.ActiveDocument.PrintOut
    WrdApp.Quit wdDoNotSaveChanges
    Set WrdApp = Nothing


    Spero possa essere utile a qualc'un altro.
    Ciao

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.