(defun c:TestReport_frmReport_cmdCreate_OnClicked ( /)
(WriteHTML "My Sample Report")
(dcl_Html_Navigate TestReport_frmReport_HtmlControl1 *TempHTMLFile*)
(princ)
)
(defun c:TestReport_frmReport_cmdClose_OnClicked ( /)
(dcl_Form_Close TestReport_frmReport)
(princ)
)
(defun WriteHTML (Title / output)
(setq output (open *TempHTMLFile* "W"))
(write-line (strcat "" Title "
") output)
(write-line "" output)
(write-line "| Row 1 | Test 1 | Stuff 1 |
" output)
(write-line "| Row 2 | Test 2 | Stuff 2 |
" output)
(write-line "| Row 3 | Test 3 | Stuff 3 |
" output)
(write-line "| Row 4 | Test 4 | Stuff 4 |
" output)
(write-line "
Right-click on this control to print..." output)
(write-line "" output)
(close output)
(princ)
)
(defun C:report (/)
(setq *TempHTMLFile* "C:\\TestReport.html")
(dcl_Project_Load "TestReport")
(dcl_Form_Show TestReport_frmReport)
)