Always glad to help

Richard

I have implemented this. It works perfectly; however, after Word is open, my Access locks up. The only think I can do is switch between Access and VBA editor.  I have to close it with the "x"

I added a DoEvents, but did not help

Here is my code:

Details

Private Sub ChapToWordBtn_Click()

    Dim FilePath As String, Word As Object, Doc As Object
    FilePath = "P:\DivReport-" & YMYear & "-" & YMMonth & ".pdf"
    
    'export pdf
    DoCmd.Echo False
    DoCmd.OpenReport "DivR", acPreview, , "YearMonthID= " & YearMonthID
    DoCmd.OutputTo acOutputReport, "DivR", acFormatPDF, FilePath, False
    DoEvents
    
    'open Word
    Set Word = CreateObject("Word.Application")
    Word.Visible = True
    
    'open pdf in word
    Set Doc = Word.Documents.Open(FilePath)
    DoEvents
    
    'clean up
    Set Doc = Nothing
    Set Word = Nothing

    Beep
    
End Sub


Hi Richard,

Can you please also give us the code to the same but with an Excel instead of Word.  

Thanks

It's not locking up. You're turning Echo off and never turning it back on. Remember ECHO IS DANGEROUS.

Excel... already on the list. :)

Thank you Richard Echo on solved the problem. Silly me.