Code to Output a report as RTF

Hi,

I am editing a database that was created by a previous member of staff.

I need to have a command button when clicked output a report in RTF format and save it in a form, I have the code and it keeps displaying a message that it cannot save to the specified location, but there is already code within the system that saves other reports to that location.

Private Sub cmdQ4_Click()

Dim rpt As String
Dim strDest As String

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

create_a:

rpt = "rpt:Q4"
strDest = "I:\landchar\searches\NEW RTF" & [Forms]![frm:detailsInput]![Official Search Number] & ".rtf"

DoCmd.OutputTo acOutputReport, rpt, acFormatRTF, strDest


End Sub

I have tried the debugger, but cannot work out how to make it work!
This system is supposed to be running after the bank holiday and I cannot see it happening at the moment

Any help or advice would be greatly appreciated.

Nikki

RE: Code to Output a report as RTF

Anthony,

Thanks, that worked great, the only problem I have with it now is that it is reportng every entry in the database (at the moment its only 100 or so).

I have gone over the code and cannot see a way to make it only report the current record.

Thanks

Nikki