Udskriv udvalgte worddokumenter via en knap i access

Private Sub Command2_Click()

Dim wrd As Word.Application

Set wrd = Word.Application
wrd.Visible = True
wrd.Documents.Open Filename:="Q:\Example.doc"
wrd.ActiveDocument.PrintOut
Do While wrd.BackgroundPrintingStatus <> 0
    DoEvents    'Let Word print the document
Loop
wrd.Quit

End Sub

You will need a refernce to word in your application (tools+References) in code view

Hej Terry!

Det er lige præcis dine svar jeg har kigget på :o) Jeg forstår ikke dit andet svar - tools+references - har nu indtastet dit svar i min db og får dette svar:

user-defined type not defined vedr. denne sætning "wrd As Word.Application"?

Ja - det vil sige at jeg har oprettet en knap, herefter indsat præcis din kode og så kommer den med ovenstående fejlmelding.

Hep hey!!!!

Har prøvet lidt frem og tilbage og koden ser nu sådan her ud:

 
    Dim wrd As Object
    Set wrd = CreateObject("Word.Application")

    wrd.Visible = True
    wrd.Documents.Open Filename:="Q:\Example.doc"
    wrd.ActiveDocument.PrintOut

    Do While wrd.BackgroundPrintingStatus <> 0
    DoEvents    'Let Word print the document

Loop
wrd.Quit

DET VIRKER!!! MEN DET VAR IKKE HELE OPGAVEN. Som sagt har jeg en tabel med stierne til en række filer som skal printes ud i den samme word fil - hvordan får jeg dem flette sammen?

Do you want to print ALL of your word documents in one document? If thats correct then may I ask why?


Looping through the records in a table isnt a problem but copying the contents of all the documnets into another is not something I've ever had the need for so I doubt I can help you there.

Jeg har ex. en byggesag - til denne sag skal anvendes en række stoffer som hver især har deres egen brugsanvisning. Denne brugsanvisning er et word dokument. På hver byggesag variere det hvilke stoffer som anvendes. Opgaven er derfor i Access at tilknytte de enkelte stoffer til en sag og herefter ved tryk på en knap at udskrive samtlige brugsanvisninger ud.

Kan du forklare mig hvordan jeg "looper" igennem en tabel og kun tager valgte stoffer med er jeg ved at være i mål. Har set lidt på et andet indlæg:

    Dim rs as ADODB.recordset
    Set rs = New ADODB.Recordset
    rs.Open "Din tabel", currentproject.connection
    Wdoc.Selection.InsertFile FileName=rs!DinSti, Range:="",        confirmConversions:=False, Link:=False, Attachment:=False
    do Until rs.eof
    rs.Movenext
    loop

    rs.close
    set rs = nothing


Jeg kan ikke finde ud af hvordan "dintabel" og Dinsti skal indtaste - der kommer hele tiden fejlmeldinger. Min tabel hedder i øvrigt "Filoplysninger" og feltet med stien hedder "filplacering" ??? Kan du hjælpe mig videre???

This might be a silly question but why cant you print each word document seperatly?


As I sadi  I haven never had the need to put a number of word documents into one document so I cant comment on that part.

You should be able to change "Din tabel" to "Filoplysninger" and rs!DinSti to rs!filplacering

and I dont know how you will choose "valgte stoffer" because I know nothing at all about your application. You will need to give more information.