Formula Field not Displaing Right on Report

var text escapingquotes = SearchAndReplace([Customer Communication Remarks],"\"",""");
If([Type Customer Communication]=true and [Type Internal Communication]=false and [Type Note]=false and [Type Task]=false,
"<table style='width:100%;border: 0px Solid White'>"&
    "<tbody>"&
        "<tr"&
        "<td>"&"Type: "&[Customer Communication Type]&" | HO Status: "&[Homeowner Status] &" | Remarks: "& If(Length([Customer Communication Remarks])>120,Left([Customer Communication Remarks],120)&"<a href='"& Dbid()&"?a=dr&rid="&[Record ID#]&"' title=\""&$escapingquotes&"\" target=\"_blank\" \"><i><font color=blue> Hover...</font></i></div></a>",[Customer Communication Remarks])&"<br /"&"</td>"&
        "</tr>"&
    "</tbody>"&
"</table>",
If([Type Customer Communication]=false and [Type Internal Communication]=true and [Type Note]=false and [Type Task]=false,
"<table style='width:100%;border: 0px Solid White'>"&
    "<tbody>"&
        "<tr"&
        "<td>"&"Remarks: "& If(Length([Internal Communication Remarks])>120,Left([Internal Communication Remarks],120)&"<a href='"& Dbid()&"?a=dr&rid="&[Record ID#]&"' title=\""&$escapingquotes&"\" target=\"_blank\" \"><i><font color=blue> Hover...</font></i></div></a>",[Internal Communication Remarks])&"<br /"&"</td>"&
        "</tr>"&
    "</tbody>"&
"</table>",
If([Type Customer Communication]=false and [Type Internal Communication]=false and [Type Note]=true and [Type Task]=false,
"<table style='width:100%;border: 0px Solid White'>"&
    "<tbody>"&
        "<tr"&
        "<td>"&"Note: "& If(Length([Notes])>120,Left([Notes],120)&"<a href='"& Dbid()&"?a=dr&rid="&[Record ID#]&"' title=\""&$escapingquotes&"\" target=\"_blank\" \"><i><font color=blue> Hover...</font></i></div></a>",[Notes])&"<br /"&"</td>"&
        "</tr>"&
    "</tbody>"&
"</table>",
If([Type Customer Communication]=false and [Type Internal Communication]=false and [Type Note]=false and [Type Task]=true,
"<table style='width:100%;border: 0px Solid White'>"&
    "<tbody>"&
        "<tr"&
        "<td>"&"Task: "&[Task Name]&" | Assigned To: "& ToText([Assigned To])&" | Status: "& [Task Status]& " | Due: "&[Task Due Date]& " | Completion Status: "&[Completion Status] &"<br /"&"</td>"&
        "</tr>"&
    "</tbody>"&
"</table>",
"NA"))))