Microsoft KB Archive/210030

= HOW TO: Use Automation to Print a Microsoft Word Document using Access 2000 =

Article ID: 210030

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Access 2000 Standard Edition

-



This article was previously published under Q210030



Moderate: Requires basic macro, coding, and interoperability skills.

This article applies to a Microsoft Access database (.mdb) and to a Microsoft Access project (.adp).

IN THIS TASK
SUMMARY
 * Example - Printing a Microsoft Word Document
 * Example - Printing a Microsoft Word Document in a Form's Object Frame

REFERENCES



SUMMARY
This article shows how to use Automation to print a Microsoft Word document that you are working with in a Microsoft Access function or in an Access form's object frame.

The following examples assume you have a Microsoft Word document called C:\Wordtest.doc.

back to the top

Example - Printing a Microsoft Word Document
This example opens and prints a Microsoft Word document.

 Start Microsoft Access and open any database.  Create a module and type the following procedure: Function PrintDoc Dim WordObj As Object Set WordObj = CreateObject("Word.Application") WordObj.Documents.Open "C:\Wordtest.doc" WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Function  To test this function, type the following line in the Immediate window, and then press ENTER.

? PrintDoc



back to the top

Example - Printing a Microsoft Word Document in a Form's Object Frame
This example shows how to print an embedded Microsoft Word object on a form.

 Start Microsoft Access and open any database. Create a new form not based on any table or query in Design view. Add an unbound object frame control to the form.</li> In the Insert Object dialog box, click Create From File, and then type C:\Wordtest.doc in the File box. Click OK.</li> Set the Name property of the object frame to OLEObj .</li> Add a command button to the form and set the following properties:

Command Button:

-

Name: PrintDoc

Caption: Print Word Doc

OnClick: [Event Procedure]

</li>  Click the Build button next to the command button's OnClick property, and then type the following procedure: Private Sub PrintDoc_Click Dim WordObj As Object Me![OLEObj].Verb = -2  'Tells Access to open the application Me![OLEObj].Action = 7 'Activates the application Set WordObj = Me![OLEObj].Object.Application WordObj.PrintOut Background:=False WordObj.Quit Set WordObj = Nothing End Sub </li> Open the form in Form view and click the Print Word Doc button.

Note that Microsoft Word starts, prints the document, and then returns to the form.</li></ol>

NOTE: In both examples, when the Automation object goes out of scope, the instance of Microsoft Word is unloaded, unless the object was created from a previous instance (already opened).

back to the top

<div class="references_section">