Write multiple reports to one file

[mcadle]

All,

I have seen it somewhere and have searched all of these forums and couldn't find the answer. The question: I have two reports that currently are set to print when a button is clicked.


Dim strDocName1 As String
Dim strWhere1 As String
Dim strDocName2 As String
Dim strWhere2 As String
strDocName = "Report"
strWhere = "[ID]=" & Me!ID
strDocNames = "Synopsis"
strWheres = "[ID]=" & Me!ID

DoCmd.OpenReport strDocName1, acViewNormal, , strWhere1
DoCmd.OpenReport strDocName2, acViewNormal, , strWhere2

I want to be able to write these two reports to one rtf file? Also, I want the name of the file to be the date and time or combonation there of that will always be unique, as I am going to have this write to the users desktop. Any help is appreciated.

 

[ReAn]

Make a third report with no detail, and both 1st 2 reports in the report header as sub-reports. Then save that big report to file.

 

[mcadle]

Oooh

Thanks for pointing out the obvious. Man I feel stupid. Obvious signs of working too long and not thinking before posting. Thanks for the help.