printe word dokument fra access form

Det er neoget i den stil.

Dim objWordDoc As WORD.Document

    Set mobjWord = GetObject(, "Word.Application")

Lav en knap på formen

I hændelsen ved Klik på knappen indsætter du nedenstående kode. Inden du skriver koden skal du trykke på menuen funtioner/referencer og sætte flueben i : Microsoft Word 8.0 Object Library

KODE::::::::::

on error goto err_word
Dim objWord as word.application
dim objDoc as word.document

    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    Err.Clear
    On Error GoTo err_open
    If objWord Is Nothing Then
        Set objWord = GetObject("", "Word.Application")
    End If
    objWord.Visible = True
    AppActivate "Microsoft Word"
    objWord.Documents.Open "c:\mydoc.doc"
    objword.activedocument.printout
    objword.quit
    exit sub
err_open:
    msgbox "Fejlkode : " & err.number

tak for det venner