loListener = CREATEOBJECT('oListener')
Report Form budget.frx Object loListener
lc=FiletoStr(loListener.targetfilename)
RETURN

DEFINE CLASS oListener AS HtmlListener OF (HOME()+"FFC\_reportListener.vcx")
  ListenerType = 5  && Not Sure if this is needed
  OutputType   = 5  && Not Sure if this is needed.
  quietmode    = .t.
  PROCEDURE GetPageHeight()
    RETURN 960*11
  ENDPROC
  PROCEDURE GetPageWidth()
    RETURN 960*8.5
  ENDPROC
ENDDEFINE