Forms VisualBasic Script

Sub OutputToDAP()
    DoCmd.OutputTo acOutputForm, "frmComplaints", acFormatDAP, "c:\P.html"
End Sub