Access如何制作復雜報表

　　在讀這篇文章以前首先要提醒大家Access 本身的報表也具有很強的實用性和強大的功能只有當你發掘了其本身全部的功能卻仍不能滿足你對報表的特殊要求時才請使用 Excel 輸出報表很明顯使用 Excel 輸出報表第一個弱點就是必須同時打開 Access 和 Excel (當然你得在一臺機器上同時安裝 Access 和 Excel)當然如果你和我一樣擁有工作在 MHz 上的 CPU 和 M 內存以及大容量硬盤時那就不必考慮了繼續吧

　　首先找到 VBA 編程界面并找到工具菜單并單擊引用菜單項在彈出的引用窗體中找到現有引用列表在名為Microsoft Excel x Object Library的項目前的方框內打鉤

　　其次你要做好一張空白的 Excel 電子表格設定好顯示字體邊框打印紙張等等并將其存盤(以下示例中該表格名為 tempxls )當然啦直接使用空白的 Excel 文件也是可以的不過你要編程自動生成表格邊框背景顏色單元格格式等一些內容這些涉及到 Excel 編程我以后會在 Excel 專欄里詳細敘述這里就不多說了wwwliancom

　　然后你就可以在 Access 里面制作你自己的打印預覽窗體了在窗體中安排 個命令按鈕在名為預覽的按鈕的 click 事件里輸入以下代碼:

　　　　Private Sub ExcelPreview_Click()
　　Dim xlApp As ExcelApplication
　　Dim xlBook As Workbook xlSheet As Worksheet
　　Set xlApp = CreateObject(ExcelApplication)
　　Set xlApp = New ExcelApplication
　　xlAppVisible = True
　　Set xlBook = xlAppWorkbooksOpen(c:reprottempxls)
　　Set xlSheet = xlBookWorksheets()
　　xlSheetCells( ) = 制表日期: + + 月
　　以上只更改了一個單元格內的數據可根據需要無限次加入
　　xlBookSave
　　xlSheetPrintPreview 如果是要打印只要把 PrintPreview 改為 PrintOut
　　xlBookclose
　　xlAppQuit
　　End Sub

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈