Printing the contents of an OLE Container (Word)

I need to print the contents of an OLE Container using word as the Embedded Object.  How do I do so from within VB?
Who is Participating?
Richie_SimonettiConnect With a Mentor IT OperationsCommented:
' Add a reference to microsoft word object library to your project

Option Explicit
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Private Sub Form_Load()
Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("c:\mytest.doc")
With WordDoc
    .Saved = True
End With
Set WordDoc = Nothing
Set WordApp = Nothing

End Sub
Richie_SimonettiIT OperationsCommented:
Instead of Using that, why don't you use Automation with word itself?
If you need the code, just ask.
Ryan ChongCommented:
You may try the BitBlt API..

dmoringAuthor Commented:
Sorry for the delay...project got the back burner, but I think that should work
Richie_SimonettiIT OperationsCommented:
Thanks for "A" grade.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.