用戶可是不管你采用了多么靈活的算法多么方便的操作，他們最感興趣的是最后他們出來的報表如何漂亮，出報表的操作如何簡單（最好是一個按鈕解決所有的問題）。筆者在開發(fā)數(shù)據(jù)庫管理系統(tǒng)方面也稍有些經(jīng)驗，從FoxPro、Delphi、PowerBuilder一直到現(xiàn)在用的VB，都遇到過設(shè)計打印報表的問題，這些軟件在設(shè)計報表的過程中可謂各有千秋，我這里不一一細說。我在這里只向大家介紹一種我迄今為止最為滿意的一種設(shè)計打印報表的方法：利用VB操作EXCEL來生成復(fù)雜的報表。
---- 一. 用VB創(chuàng)建外部EXCEL對象
---- 大多數(shù)大型 ActiveX-enabled 應(yīng)用程序和其它 ActiveX 部件，在它們的對象層次中都提供了一個頂層外部可創(chuàng)建對象。該對象提供了對該層次中其它對象的訪問，并且還提供對整個應(yīng)用程序起作用的方法和屬性。
---- 例如，每個 Microsoft Office 應(yīng)用程序提供一個頂層 Application 對象。下面語句顯示了對Microsoft Excel的 Application 對象的引用：
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
---- 然后，可以用這些變量來訪問在EXCEL應(yīng)用程序中的從屬對象、以及這些對象的屬性和方法。例如：
Set xlApp = CreateObject("Excel.Application")
‘激活EXCEL應(yīng)用程序
xlApp.Visible = False ‘隱藏EXCEL應(yīng)用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
‘打開工作簿，strDestination為一個EXCEL報表文件
Set xlSheet = xlBook.Worksheets(1)
‘設(shè)定工作表
---- 二. 用EXCEL 97設(shè)計報表的模版文件
---- EXCEL 97是一個非常優(yōu)秀的創(chuàng)建報表的工具。它提供的單元格任意合并、拆分和繪圖功能基本上能夠滿足設(shè)計所有復(fù)雜報表的需求。它對任意一個單元格的格式隨意控制，更為隨心所欲地設(shè)計報表提供了強大的支持。
---- 根據(jù)用戶提供的報表，我們可以很快在EXCEL里生成模版文件。所謂生成模版文件只是為了滿足用戶多方面的需求而設(shè)計的。也是為了適合報表以后的更改而做的一點預(yù)備工作。例如用戶需要打印幾百張職工履歷表，但其格式都是一致的，并且隨著時間和實際情況的變化，表格格式有可能需要改變，我們設(shè)計一個模版文件顯然可以“以不變應(yīng)萬變”了。
---- 生成工作表時我們應(yīng)當(dāng)記錄下要填充內(nèi)容的單元格編號和該單元格內(nèi)要填充的數(shù)據(jù)字段。這樣形成一個表格，在寫程序時一目了然。如：
Cell(4,2) 職工姓名 Cell(6,6) 畢業(yè)學(xué)校
Cell(4,4) 職工性別 Cell(6,7) 所學(xué)專業(yè)
Cell(4,6) 職工民族 Cell(6,9) 工作時間
（表一）
---- 在程序里我們當(dāng)然不要對模版文件進行操作了，我們只需要對模版文件的一個拷貝進行操作就行（這也是我們設(shè)計模版文件的一個目的和好處）。如下面的例子：
Dim strSource, strDestination As String
strSource = App.Path & "\Excels\RegisterFee.xls"
‘RegisterFee.xls就是一個模版文件
strDestination = App.Path & "\Excels\Temp.xls"
FileCopy strSource, strDestination
‘將模版文件拷貝到一個臨時文件
---- 三. 生成工作表內(nèi)容
---- 有了上述兩步工作的鋪墊，我們下面接著就只要根據(jù)（表一）的格式給各單元格賦值了。如：
datPrimaryRS.Recordset.MoveFirst
‘datPrimaryRS為Data控件
If IsNull(datPrimaryRS.Recordset!姓名) = False Then
xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名
End If
If IsNull(datPrimaryRS.Recordset!性別) = False Then
xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性別
End If
If IsNull(datPrimaryRS.Recordset!民族) = False Then
xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族
End If
………………
---- 四. 打印報表
---- 生成了工作表后，就可以對EXCEL發(fā)出打印指令了。
---- 注意在執(zhí)行打印操作之前應(yīng)該對EXCEL臨時文件執(zhí)行一次保存操作，以免在退出應(yīng)用程序后EXCEL還提示用戶是否保存已修改的文件，讓用戶覺得莫名其妙。如下語句：
xlBook.Save ‘保存文件
xlSheet.PrintOut ‘執(zhí)行打印
xlApp.Quit ‘退出EXCEL
---- 至此讀者應(yīng)該看到，我們設(shè)計的報表打印是通過EXCEL程序來后臺實現(xiàn)的。用戶根本看不到具體過程，他們只看到一張張漂亮的報表輕易地被打印出來了。
