Newsgroup: it.comp.appl.access
Titolo: Output di stampa con word

Salve a tutto il NG,
Ho un Db nel quale vi è l'anagrafica del cliente, mi sono preparato un
documento di word con stampa unione attingendo ai dati dell'anagrafica,
come posso aprire il documento di word  e stampare come campi unione solo 
il record corrente? (tipo la condizione Where che si usa nei report,form
ecc.)
Grazie.
Lucio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

ciroteo ha scritto:



In effetti, dando un'occhiata all'esempi sul SitoComune, non sono riuscito
a capire granchè...


 ha scritto nel messaggio
news:ccmcah$gtn$1...@news.newsland.it...

hai cercato tramite google il 3d di namor?
Questo è un esempio un po' complesso, controlla di avere attivate le
librerie di word nella finestra dei riferimenti di vba.
Fa un po' di cose in più di quello che chiedi, ma funziona sebbene il codice
sia un po' sporchino ....
Private Sub paperino_Click()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim blOpen As Boolean
    On Error Resume Next
    blOpen = True
'faccio un controllo sull'esistenza del file di word
    Dim percorso, nprot, fileexist As String
    nprot = Me.nprotocollo
    percorso = "j:\protocollomaster\1\" & nprot & ".doc"
    fileexist = nprot & ".doc"
    template1 = DLookup("[nomefile]", "modelli", "[IDmodello] =" & modello)
    template = "j:\protocollomaster\" & template1
    Dim MyFile, MyPath, MyName
    MyFile = Dir(percorso)
    If MyFile = fileexist Then
    MsgBox ("Il documento è già presente")
  'se esiste lo apro
    Me!paperino.HyperlinkAddress = Me!file
    ElseIf MyFile <> file Then
    If MsgBox("Il documento non è presente " & Chr(10) & "verrà creato
ora.", 276, "Attenzione") = vbYes Then
    On Error GoTo gestErrori
    If Err.Number = 429 Then
    Set wordApp = GetObject(, "Word.Application")
    blOpen = False
    Err.Number = 0
    End If
    If Me.autocompletamento = "si" Then
    Set wordApp = CreateObject("Word.Application")
    Set wordDoc = wordApp.Documents.Add(template)
    'da qui inizia l'esempio del sito con i campi modulo di word.
    With wordDoc
        .Bookmarks("mittente").Select
        wordApp.Selection.Text = mittente
        wordApp.Selection.Range.Font.Bold = False
        .Bookmarks("destinatario").Select
        wordApp.Selection.Text = destinatario
        wordApp.Selection.Range.Font.Bold = False
        .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
    End With
    ElseIf Me.autocompletamento = "no" Then
    Set wordApp = CreateObject("Word.Application")
    Set wordDoc = wordApp.Documents.Add(template)
        With wordApp.Selection.PageSetup
    .LeftMargin = 72
    .RightMargin = 36
    .TopMargin = 72
    .BottomMargin = 72
    .Orientation = wdOrientPortrait
    End With
    With wordDoc
        wordApp.Selection.Text = " prot. " & nprot
        wordApp.Selection.Range.Font.Bold = True
        wordApp.Selection.TypeParagraph
 
wordApp.Selection.Font.Name
 = carattere
        wordApp.Selection.Font.Bold = True
        wordApp.Selection.Font.Size = 12
        wordApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        wordApp.Selection.TypeText "n.prot: " & nprot & spaziatura
    End With
    End If
    wordDoc.SaveAs FileName:=percorso
    With wordApp
        .Visible = True
        .Activate
    End With
    If Not blOpen Then
    wordDoc.Close savechanges:=False
    wordApp.Application.Quit
    End If
    End If
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
    End If
End Sub