Private Sub PrintWord_Click()
' You need install MS Word in order to get this function to work

SetOutputFileName "C:\out.pdf"

On Error GoTo FileOpenDlg_ErrHandler
FileOpenDlg.CancelError = True
FileOpenDlg.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist _
	Or cdlOFNExplorer Or cdlOFNLongNames
FileOpenDlg.Filter = "MS Word documents (*.doc)|*.doc"
FileOpenDlg.FilterIndex = 1
FileOpenDlg.ShowOpen

On Error Resume Next
Dim wordApp As Object
Dim wDoc As Object

Set wordApp = CreateObject("Word.Application")

Err = 0
Set wDoc = wordApp.Documents.Open(FileOpenDlg.FileName, , 1)

If Err = 0 Then
	wordApp.ActivePrinter = sPrinterName
	Call wordApp.PrintOut(False)

	wDoc.Close
	Set wDoc = Nothing
End If

Call wordApp.Quit
Set wordApp = Nothing

FileOpenDlg_ErrHandler:
Exit Sub

End Sub