ACC2000: Creating an Updatable Unbound Word Object on a Report (202056)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following example enables you to change the header of a report from a form:

1. Open the sample database, Northwind.mdb.
2. Click Reports under Objects, and then copy the Sales by Category report.
3. Name the new report Custom Sales by Category and open it in Design view.
4. Select and then delete the "Sales By Category" title in the report header.
5. Select the report header bar.
6. On the Insert menu, click Object.
7. In the Insert Object dialog box, click Create New, and then in the Object Type list, click Microsoft Word Document. Click OK. Note that a blank Word document appears in the report header.
8. Double-click inside the object to switch to Word.
9. On the Edit menu, click Select All.
10. On the Format menu, click Paragraph and change the alignment to Center. Click OK.
11. Click once anywhere on the report to switch out of Word.
12. Resize the object as needed and move it to the center of the report header.
13. Right-click the Word object and click Properties.
14. On the Other tab, change the Name property of the Word object to, MyTitle. On the Format tab, change the Border property to Transparent.
15. Set the OnFormat property of the report header to the following event procedure:

    Private Sub ReportHeader_Format(Cancel As Integer, _
       FormatCount As Integer)
    
       Me!MyTitle.OleData = Forms!frmRunReport!CustomTitle.OleData
    
    End Sub
    					

16. On the File menu of the Visual Basic Editor, click Close and Return to Microsoft Access.
17. Click the Word document object to select it, and on the Edit menu, click Copy.
18. Save and close the "Custom Sales By Category" report.
19. Create a new form and view it in Design view. On the Edit menu, click Paste to insert a copy of the Word document object into the detail section. Finish building the form as follows:

    Form: frmRunReport
    ------------------------------------------------------
    Caption: Run Report
    
    Unbound Object frame (Microsoft Word Document object):
    Name: CustomTitle
    Locked: No
    Enabled: Yes
    Command button:
    Name: RunReport
    Caption: Run Report
    OnClick: [Event Procedure]
    						

20. Set the OnClick property of the RunReport button to the following event procedure:

    Private Sub RunReport_Click()
    
       DoCmd.OpenReport "Custom Sales by Category", acViewPreview
    
    End Sub
    					

21. On the File menu, click Save.
22. Switch the frmRunReport form to Form view.
23. Double-click the Word object and then type My Custom Categories Title.
24. Change the font size of the title to 14 point and the font style to italic.
25. Click Run Report.

The Custom Sales By Category report opens in preview mode with your custom title.