Newsgroup: it.comp.appl.access
Titolo: Report di Access o stampa unione?

Cosa devo fare: automatizzare il piu' possibile (non necessariamente
al 100%) la produzione di una serie di lettere standard.
Mi occupo di gare d'appalto. Ad ogni offerta vanno allegate 3 o 4
lettere standardizzabili, scelte tra una ventina di modelli. Le
offerte vengono già prodotte da una piccola applicazione in Access e
salvate esportando un report in formato rtf. Sarebbe bello scegliere e
produrre (stampare e salvare) insieme anche gli allegati standard.
Mi pare che le possibilita' siano 2: 
1. "lettere tipo" in Word e stampa unione con una query Access che
contiene tutti i campi,
2. oppure ancora dei report Access da esportare in rtf
Nel primo caso i vantaggi sono:
- facilita' di aggiornare/modificare i testi
- risultato esteticamente piu' bellino
Svantaggi (ho provato):
- aprire i documenti Word che hanno impostato una query Access come
origine dati e' operazione di una lentezza esasperante
- ci sono molti passaggi manuali ...valli a spiegare ad una
collaboratrice poco pratica.
Nel secondo caso i vantaggi sono:
- e' tutto supervelocissimo
- e' tutto automatizzabile al 100%
Svantaggi:
- Le lettere fanno un po' schifio (
p.es
. mi manca l'allineamento
giustificato dei testi)
- Modificare i testi standard e' macchinoso e qui dentro so farlo solo
 io
Suggerimenti?
Una cosa, a quanto ho capito, NON posso' fare: lanciare la stampa
unione di Word da una maschera Access, scegliendo in Access un singolo
record di dati da stampare e il documento Word desiderato. Oppure
posso? Come?

 ha scritto nel messaggio
news:oilrtscmb14a7q94i...@4ax.com...

Questo è un esempio di codice per aprire un documento word e stampare il
contenuto:
'--------------------
Sub ApriWordperStampare()
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
'apro il documento
oApp.Application.Documents.Open "d:\documenti\NomedelDocumento.doc"
'se voglio vedere word
oApp.Visible = True
'la prossima riga stampa tutte le pagine
oApp.ActiveDocument.PrintOut
'chiudo word
oApp.Quit
Set oApp = Nothing
End Sub
'--------------------
Dovresti prima inserire i riferimenti alla libreria "Microsoft Word".
Se colleghi il documento ad una query che ti esegue già la selezione dei
dati e poi esegui il mailmerge non dovresti avere problemi. Il problema ti
si presenta se devi stampare un report tipo fattura; con word è un'ammazzata
e non so' se ne vale la pena.
Al contrario se hai solo "lettere"...
Ciao.

contenuto:
Mi hai dato un'idea, grazie :)))

origine dati e' operazione di una lentezza esasperante
Sient' a mme'
Query di creazione tabella per i dati da mergiare
Esportazione della tabella in rtf
Doc word che legge i dati dall'rtf
E' una scheggia
(copyright Carlo Ve ;-)
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono 
convinti che noi poveri principianti (nel senso 
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--
<<se il lavoro non me lo dai tu, me lo da 
un'altro stronzo che non capisce una sega 
di access e di informatica in generale>>
(Ivan dal lavoro, 30/09/2000)
--

Dovresti prima inserire i riferimenti alla libreria "Microsoft Word".
Suppongo di averlo fatto (in strumenti/riferimenti, vero?). Ho provato
anche con Excel, non si apre niente :( Nessun messaggio di errore, ma
non succede niente.

(copyright Carlo Ve ;-)
Tenchiu ;-)
Carlo Ve


Puoi inviare le istruzioni incriminate?
Ciao.

Puoi inviare le istruzioni incriminate?
Private Sub StampaSingolo_Click()
    Dim Stampa As Word.Application           
    Set Stampa = CreateObject("Word.Application")
    Stampa.Application.Documents.Open
"e:\corrispondenza\modelli\ce1.doc"
    Stampa.Visible = True
 
End Sub


Strano, ho solo cambiato il documento e funziona! Ti consiglio di
ricontrollare i riferimenti oppure prova con:
'---------------------
 Private Sub StampaSingolo_Click()
     Dim Stampa As Object
     Set Stampa = CreateObject("Word.Application")
     Stampa.Application.Documents.Open "e:\corrispondenza\modelli\ce1.doc"
     Stampa.Visible = True
 End Sub
'---------------------
Ciao.

ricontrollare i riferimenti oppure prova con:
Non funziona neanche l'altro. Invece ho visto che se metto le stesse
istruzioni in una nuova maschera di prova, funzionano, mentre non
funzionano li' dove dovrebbero stare (e' una sottomaschera in una
sottomaschera) ....bho, piu' tardi faccio altre prove.
Certo che se potessi annunciare oggi che l'applicazione c'e', esiste,
la cosa avrebbe alcune ripercussioni positive ;)

ricontrollare i riferimenti oppure prova con:
Adesso funziona!
Ne ho provate di tutte ...a tentoni. Le tue istruzioni funzionavano
dentro a qualsiasi maschera tranne in quella dove avrebbero dovuto
stare. Alla fine ho cancellato la maschera, l'ho ricreata uguale
identica e funziona tutto.
Misteri di Access. Mi era gia' capitata una cosa simile. Posso dire
che comincio ad odiarlo? ;)))))

 ha scritto nel messaggio
news:2lb6usgi6u6k12620...@4ax.com...

Per cosě poco?
Ciao.