魚骨頭的雲端圖書館 - Powered by Discuz! Board

繁體 | 簡體

Sclub交友聊天~加入聊天室當版主

(檢舉)

新浪微博

QQ空间

Facebook

Google+

Plurk

Twitter

Line

標題: 利用VB設計列印複雜報表 [打印本頁]

作者: mhfo 時間: 2013-4-24 08:47 標題: 利用VB設計列印複雜報表

---- 在程式裏我們當然不要對模版文件進行操作了，我們只需要對模版文件的一個拷貝進行操作就行（這也是我們設計模版文件的一個目的和好處）。如下面的例子：
　　Dim strSource, strDestination As String
　　strSource = App.Path & "\Excels\RegisterFee.xls"
　　‘RegisterFee.xls就是一個模版文件
　　strDestination = App.Path & "\Excels\Temp.xls"
　　FileCopy strSource, strDestination
　　‘將模版文件拷貝到一個臨時文件
　　---- 三. 生成工作表內容
　　---- 有了上述兩步工作的鋪墊，我們下面接著就只要根據（表一）的格式給各單元格賦值了。如：
　　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發出列印指令了。
　　---- 注意在執行列印操作之前應該對EXCEL臨時文件執行一次保存操作，以免在退出應用程式後EXCEL還提示用戶是否保存已修改的文件，讓用戶覺得莫名其妙。如下語句：
　　xlBook.Save ‘保存文件
　　xlSheet.PrintOut ‘執行列印
　　xlApp.Quit ‘退出EXCEL
　　---- 至此讀者應該看到，我們設計的報表列印是通過EXCEL程式來後臺實現的。用戶根本看不到具體過程，他們只看到一張張漂亮的報表輕易地被列印出來了。

歡迎光臨魚骨頭的雲端圖書館 (http://mhfo.hotbbs.info/)