newbee2
Technical User
- Apr 21, 2002
- 85
Hi,
Sorry to bother.
Using the following code snippet,I was hoping to test an application to output a report for later e-mail.
The code runs but stops with no indication of error but there is one. Where am I going wrong?
'open the Database
With accessApp
.OpenCurrentDatabase ("D:\My Documents\WORKS CARD.mdb"
End With
'open the report and print
DoCmd.OpenReport "MarketUnionConvertReport", acViewPreview
Visible = False
'Output the Report to file
DoCmd.OutputTo acOutputReport, "MarketUnionConvertReport", acFormatRTF, "C:\My Documents\Test", "MarketUnionConvertReport.rtf"
'Close access session
accessApp.Quit
Set accessApp = Nothing
Thanks in advance
Bill
Sorry to bother.
Using the following code snippet,I was hoping to test an application to output a report for later e-mail.
The code runs but stops with no indication of error but there is one. Where am I going wrong?
'open the Database
With accessApp
.OpenCurrentDatabase ("D:\My Documents\WORKS CARD.mdb"
End With
'open the report and print
DoCmd.OpenReport "MarketUnionConvertReport", acViewPreview
Visible = False
'Output the Report to file
DoCmd.OutputTo acOutputReport, "MarketUnionConvertReport", acFormatRTF, "C:\My Documents\Test", "MarketUnionConvertReport.rtf"
'Close access session
accessApp.Quit
Set accessApp = Nothing
Thanks in advance
Bill