Udskrive Word dokument fra Access

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\Opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
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 docname
objword.PrintOut
objword.Visible = False
MsgBox "Opskriften er sendt til printer." & vbNewLine & vbNewLine & "Vent et øjeblik."
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number & " " & Err.Description

Hej, jeg plejer at bruge denne, koden kræver et reff. til Wordobjektet.

Ved klik på knappen:

Dim oApp As Object
Dim sDoc As String

sDoc = "C:\test.doc"

    Set oApp = CreateObject("Word.Application")
    oApp.Documents.Open sDoc
    oApp.PrintOut Background:=True
    oApp.Visible = False
    oApp.Quit

Hvis du gemmer oplysninger om stien til worddokumentet feks. i et felt i tabellen kan det gøres dynamisk ved at spørge på feltets indhold feks (som skal være på formen).


Dim oApp As Object
Dim sDoc As String

sDoc = Me!NavnPåDitFelt

    Set oApp = CreateObject("Word.Application")
    oApp.Documents.Open sDoc
    oApp.PrintOut Background:=True
    oApp.Visible = False
    oApp.Quit

-anders- > din kode virker perfekt bortset fra end detalje.  Word kommer og spørger om jeg vil gemme det dokument jeg har haft åbnet og udskrevet. Det vil jeg jo ikke da jeg ikke har ændret i det.  I Access ville det kræve en acSaveNo parameter, men hvordan sender man det til Word?

Mugs> din kode virker sandsynligvis også (det plejer det) der er bare en del ekstra så -anders-' var mere overskuelig i første omgang.

OK - den fandt jeg så selv ud af

objWord.Quit SaveChanges:=wdDoNotSaveChanges

-anders- > kast lige et svar for at få del i point

Okay her et svar, glad for du fik det til at virker :o). Jeg forstår ikke helt at word promter for at gemme ændringer, dette sker ikke for mig og jeg har brugt det længe, men det vel MS urangsalige vej :o)

Ja M$' veje har jeg opgivet at forstå.

Jeg har de sidste dage siddet og rodet lidt med den online testversion af Office 2007 der er tilgængelig. Den er godt nok styg synes jeg. Nu skal man nærmest være uddannet pædagog for at kunne programmere VBA eller i det hele taget bruge programmet :-)

Helt ening, jeg har på arbejdet installeret den fulde betaversion, det dælme noget anderledes må man sige, men vi kommer vel efter det :o)

Ups, og tak for point