The vba code for the macro:
Private Sub Command34_Click()
On Error GoTo Command34_Click_Err
DoCmd.OutputTo acOutputReport, "BookChapters", "RichTextFormat(*.rtf)", "", True, "", 0, acExportQualityPrint
Command34_Click_Exit:
Exit Sub
Command34_Click_Err:
MsgBox Error$
Resume...