Newsgroup: it.comp.appl.access
Titolo: Stampa unione

In un database avrei l'esigenza di aprire un file doc dove devo fare
la stampa unione inserendo dei valori di un record preso da una query
tramite l'immissione di un parametro.
Con il suggerimento dell'utilizzo di Hyperlinkaddress riesco ad aprire
il file word ma vorrei automatizzare la procedura della stampa unione
senza dover far fare all'utente tutte le operazioni sia per fare la
stampa unione. Ho trovato un suggerimento nell'archivio ma ho provato
e non funziona sicuramente perchè sbaglio da qualche parte.
P.S. perchè nel NG non vedo i messaggi? Per vedere gli ultimi messaggi
sono dovuto andare nell'archivio del sito 
www.sitocomune.com
 !!
--mic--

 ha scritto nel messaggio
news:b98adaf0.04021...@posting.google.com...

Invia il codice che stai provando; cerca anche nei messaggi precedenti con
google...
Ciao.
--
Sergio MAZZA

 --mic--
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

...

Questo è il tentativo che ho fato prendendo il codice da suggerimenti
precedenti; la parte finale l'ho commentata perchè mi blocca tutto
dandomi un errore di runtime 4605;
Private Sub Comando18_Click()
Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Documents.Open "c:\prova.doc"
'With oApp.ActiveDocument.MailMerge
  '.Destination = wdSendToNewDocument
  '.Execute
'End With
End Sub
Questo è il tentativo con hyperlinkaddress:
Private Sub pippo_Click()
Me!pippo.HyperlinkAddress = "c:\prova.doc"
End Sub
il documento prova doce ho fatto la stmpa unione che prende i campi
dalla query si apre ma i comandi per poter effettuare anche
manualmente la stampa unione sono disabilitati.
--mic--

 --mic--
In quale dei due casi?
E comunque, spero che nel primo caso hai rimosso i commenti (apici) perché
il codice è giusto; in quel caso la stampa unione è automatica...
Ciao.
--
Sergio MAZZA

 
In un mio applicativo, in cui ho la stessa esigenza, ho fatto così:
In Access lancio word e apro il documento che mi interessa (qui
miodocumento.doc):
Call Shell("C:\Programmi\Microsoft Office\Office\winword.EXE
c:/percorso\miodocumento.doc", 1)
in miodocumento.doc, che è il documento di stampa unione, cioè con
origine dei dati già impostata e i campi che servono messi al posto
giusto, c'è questa macro "autoopen"  che viene lanciata
automaticamente all'apertura del documento:
Sub AutoOpen()   
 Dim Tipo, Nome, NomeFileSalvato, Messaggio As String
' imposta automaticamente il nome con cui verrà salvato il nuovo file
doc
 Nome = ActiveDocument.MailMerge.DataSource.DataFields.Item("rpt")
 Nome = Nome & "_"
 Nome = Nome & ActiveDocument.MailMerge.DataSource.DataFields.Item("Id_Ditta")
 Nome = Nome & "_"
 Nome = Nome & ActiveDocument.MailMerge.DataSource.DataFields.Item("Id_As")
 NomeFileSalvato = Nome & ".doc"
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With
 
'imposta la directory in cui verrà salvato il documento
    ChangeFileOpenDirectory "C:\xxx\yyy\"
' salva il documento con il nuovo nome
    ActiveDocument.SaveAs FileName:=NomeFileSalvato, FileFormat:= _
    wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
    True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
    False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
    SaveAsAOCELetter:=False
' informa l'utente
    Messaggio = "Il documento appena creato è stato salvato nella
directory" & vbCrLf
    Messaggio = Messaggio & "c:\alimenti\atti\" & vbCrLf
    Messaggio = Messaggio & "con il nome: " & NomeFileSalvato
    MsgBox Messaggio, vbInformation, "Informazione"
' saluta e torna ad access
    Windows(2).Activate
    ActiveDocument.Close (No)
End Sub
In questo modo non corro il rischio che l'utente mi modifichi il
documento base di stampa unione.
Spero di esserti sato utile.
antonio

...

ora funziona!! :-) avevo commentato quelle righe di codice perchè mi
dava un errore sulla riga .Execute! ma l'errore era che non avevo
fatto bene il doc dove c'è la stampa unione!! Grazie mille e al
prossimo problema
--mic--

...

Ora funziona!! Yes!! Avevo commentato quelle righe di codice perchè mi
davano un errore! Il problema era che non avevo fatto bene il
documento con la stampa unione!! grazie e al prossimo problema
--mic--