Access VisualBasic Script

Public Sub ExportTable()
   DoCmd.OutputTo acOutputTable, "tblCustomer", acFormatRTF, _
                  "C:\BegVBA\Customer.rtf"
End  Sub