Word document printen vanuit Excel

[swedjam]

Hallo experten,

Ik wil een gebruiker de mogelijkheid geven om vanuit een Excel werkblad een Word document naar keuze te printen.
Deze code heb ik reeds bij elkaar gesprokkeld, maar geeft slechts de mogelijkheid om 1 document te printen.

Private Sub PrintDocFile()
'Creating Word-object gemaakt 24-11-2016
Dim objWord
Set objWord = CreateObject("Word.Application")

'Creating Doc-object
Dim objDoc
Set objDoc = objWord.Documents.Open("Q:\Kvaliteitshandboek\li 400 coop 407210.docx")

'Setting Word visible
objWord.Visible = True

'Printing the document
objDoc.PrintOut

'Closing Word
objWord.Quit
End Sub​

Via een dropdown lijst moet de gebruiker het te printen document eerst kunnen selecteren.
Wie helpt mij verder?

Olaf

 

[snb]

Creëer liever code dan sprokkel.
Ook als je ergens code vindt: analyseer, test, pas aan, tracht te verbeteren; maar gebruik hem nooit als je hem niet snapt.
NB. Vermijd spaties in foldernamen en bestandsnamen.

Sub M_snb()
   with getobject("Q:\Kwaliteitshandboek\li 400 coop 407210.docx")
      .printout 0
      .close 0
   end with
End Sub

en als je hulp vraagt: zorg ervoor dat je geholpen kunt worden:

- plaats een voorbeeldbestand
- geef duidelijk de beginsituatie aan en wat de gewenste eindsituatie is
- plaats wat je al geprobeerd hebt met welk resultaat
- plaats vba: maar dan wel tussen code tags !