VB6結合HTML生成漂亮報表：WebBrowser控件+模板替換方案

核心思路

VB6表單放置WebBrowser控件，動態生成HTML字符串（或加載模板文件替換佔位符），調用Navigate2 "about:blank"後寫入Document.Write。

實現步驟

1. 設計HTML模板：用FrontPage/Dreamweaver制作報表樣式，數據位置用標記如{CUSTOMER_NAME}、{ORDER_LIST}。
2. VB代碼生成報表：

   Private Sub GenerateReport()
       Dim html As String
       Dim rs As ADODB.Recordset
       ' ... 查詢數據 ...
       
       html = LoadTemplate("report_template.htm") ' 讀取模板文件
       html = Replace(html, "{CUSTOMER_NAME}", rs!CustomerName)
       html = Replace(html, "{ORDER_DATE}", Format(rs!OrderDate, "yyyy-mm-dd"))
       
       ' 生成明細表格行
       Dim rows As String
       Do While Not rsDetail.EOF
           rows = rows & "" & rsDetail!Product & "" & rsDetail!Qty & ""
           rsDetail.MoveNext
       Loop
       html = Replace(html, "{ORDER_LIST}", rows)
       
       WebBrowser1.Navigate "about:blank"
       Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
       WebBrowser1.Document.Write html
       WebBrowser1.Document.Close
   End Sub
   

3. 打印/導出：WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER直接打印。

優勢

• 排版靈活：CSS控制樣式、分頁、頁眉頁腳（@media print）。
• 所見即所得：HTML預覽即打印效果。
• 跨平台：HTML可直接郵件發送、瀏覽器查看。

注意事項

• 目標機需安裝IE內核（WebBrowser基於MSHTML）。
• 大數據量生成HTML字符串性能一般，可考慮StringBuilder類或分塊寫入。
• 中文編碼：模板保存為UTF-8，VB中StrConv(html, vbFromUnicode)或確保Document.Charset = "UTF-8"。