DoCmd.SendObject acReport, "Reportname", "RichTextFormat(*.rtf)", "", "", "", """[Claimno]= '"" & Text80 &", "", False, ""
RichTextFormat(*.rtf) is where your output option goes
Subject Line: [Claimno]='"" & Text80 &" will show up as just that.
The easiest way to do this is create a Macro using the SendObject Command and then convert it to VB.