Newsgroup: it.comp.appl.access
Titolo: Stampa record com Word

Saluti a tutto il newsgruppo.
Spero che qualcuno mi possa aiutare, per quest problema:
Ho bisogno di passare in stampa il contenuto di una tabella
(Numero Prat., Assistito e altri campi).
Ho utilizzato il sistema dei boolmark, e però mi sono fermato al singolo
record.
come si può inviarli tutti i record?








ma quanti recod a la tua tabella???
Con questo post siamo arrivati al 4 record, al dobbiamo scorrere tutta???
posta il codice e vediamo che si può fare
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:buVoe.1497697$35.55...@news4.tin.it...

Se guardi bene l'esempio dei bookmark vedrai che la parte del dettaglio 
fattura utilizza un recordset per ciclare fra tutti i records. Se non ho 
capito male a te servirebbe poter esportare in  word l'elenco dei records di 
una tabella, e quello che ti ho suggerito fa proprio al caso tuo.
Se invece come tendo ad escludere, tu vuoi esportare i records in  n 
documenti word ti consiglio di utilizzare la stampa unione perchè fare un 
ciclo per creare tanti documenti word mi sembra un po' esagerato.
Comunque si potrebbe fare anche questo. 

 ha scritto nel messaggio 
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio 
news:d81duq$vev$1...@hulme.interac.it...


 ha scritto nel messaggio 
news:h0Xoe.1498454$35.56...@news4.tin.it...

Giuseppe ho capito!
Non puoi ripostare lo stesso messaggio sei volte! Può darsi che la grappa 
bevuta alla cisa mi faccia ancora vedere doppio, ma non sestuplo! Sei tu o 
il tuo outlook????
Per il tuo problema a questo punto non ti è più funzionale, nonchè intuitivo 
la stampa unione di word?

 ha scritto nel messaggio 
news:d81knl$vr5$1...@hulme.interac.it...


 ha scritto nel messaggio 
news:d81knl$vr5$1...@hulme.interac.it...


 ha scritto nel messaggio 
news:d81knl$vr5$1...@hulme.interac.it...

La procedura se possibile deve essere in automatico sennza l'intervento 
dell'operatore,
cque la stampa unione può essere fatta senza l'ausilio dell'operatore?

 ha scritto nel messaggio 
news:51cpe.990980$b5.42...@news3.tin.it...

=====================================
Giuseppe, attento ad una cosa molto importante.
Perchè si possa leggere correttamente tutta la serie di messaggi è opportuno 
quotare uno sotto all'altro, come faccio io in questo momento. Altrimenti, 
altro che grappa! non si capirebbe bene il senso del messaggio.
Ho capito ciò che tu devi fare, sostanzialmente a fronte di una serie di 
destinatari vorresti generare un file uguale in tutto tranne che 
nell'indirizzo. ( o qualche altro campo)
Potresti utilizzare l'automazione e ciclare sempre attraverso un recordset o 
un ciclo for/each la creazione di un nuovo documento word.
Io non ho mai avuto l'esigenza di farlo, ma se vuoi posso postarti un pezzo 
di codice che genera un file, ne compila i bookmarks e successivamente lo 
salva con un nome.
Credo che da questo potresti partire per creare il tuo codice.
Non so se si possa pilotare la stampa unione di word direttamente da access. 
Forse potresti crearti il tuo modello di documento stampa unione e 
collegarlo ad una query del tuo db. Da access popoli la query con i criteri 
che ti interessano e lanci successivamente il file word collegato in stampa 
unione. A questo punto l'utente deve solo utilizzare il file e farci quel 
che vuole.
====================================== 

 Non so se si possa pilotare la stampa unione di word direttamente da access. 
Si può, vedasi oggetto MailMerge, libreria Word.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:d83l27$nqb$1...@news.newsland.it...

*-*-*-*-*-*
Ciao Namor
Ti puoi spiegare meglio?
Grazie 

 ha scritto nel messaggio 
news:d83jd2$j9o$1...@hulme.interac.it...

*********************
Grazie del consiglio sull'utilizzo del NG,
mi farebbe piacere avere quella parte di codice e che poi utilizzerò dopo 
per fare quanto mi serve. 


Se hai utilizzato l'esempio di namor sui bookmarks avrai giŕ visto la parte 
iniziale del codice, dove vengono dichiarate le variabili e istanziata la 
"connessione" a word
Nella mia routine c'č solo l'aggiunta dell'opzione saveas che salva il 
documento con un nome in una cartella specifica. Tu devi vedere come ciclare 
questa operazione.
    Set wordApp = CreateObject("Word.Application")
    Set wordDoc = wordApp.Documents.Add(template)
    With wordDoc
        .Bookmarks("mittente").Select
        wordApp.Selection.Text = Me![mittente]
        wordApp.Selection.Range.Font.Bold = False
        .Bookmarks("destinatario").Select
        wordApp.Selection.Text = Me![destinatario] & vbCrLf & 
Me![referente_ufficio] & " " & vbCrLf & "Fax:" & Me![fax] _
        & vbCrLf & Me![via] & ", " & Me![civico] & vbCrLf & Me![cap] & " - " 
& Me![citta] & " - " & "(" & Me![provincia] & ")"
        With wordApp.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(10#)
        End With
        .Bookmarks("nprotocollo").Select
        wordApp.Selection.Text = nprotocollo
        .Bookmarks("oggetto").Select
        wordApp.Selection.Text = oggetto
        .Bookmarks("datadoc").Select
        wordApp.Selection.Text = Format(datadoc, "dd.mm.yyyy")
        wordApp.Selection.Range.Font.Bold = False
        .Bookmarks("record").Select
        wordApp.Selection.Text = Record
        With wordApp.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(10#)
        End With
        wordApp.Visible = True
        wordApp.Activate
        .SaveAs FileName:=percorso
    End With

 Grazie
Come usi gli oggetti word.application e word.document per pilotare word
puoi usare anche un oggetto word.mailmerge per impostare tutti i parametri
di stampa unione.
Apri il visualizzatore oggetti, cerca il mailmerge e dai un'occhiata a
tutti i metodi e proprietà disponibili.
Se vuoi un esempio di codice apri word:
    Strumenti/Macro/Registra nuova macro
    Strumenti/Stampa unione
    - imposta tutti i parametri per una stampa unione
    - ferma la registrazione della macro
    Strumenti/Macro/Macro...
    - seleziona la tua macro e vai a vedere il codice che ha generato.
