Access怎樣制作復(fù)雜報表?Access制作復(fù)雜報表教程
發(fā)布時間:2014-05-22 15:44:33 作者:佚名
我要評論

今天有人問如何用Access制作復(fù)雜的報表,話不多說,下面開始制作吧
1、首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項,在彈出的"引用"窗體中找到"現(xiàn)有引用"列表,在名為"Microsoft Excel x.0 Object Library"的項目前的方框內(nèi)打鉤。
2、其次,你要做好一張空白的 Excel 電子表格,設(shè)定好顯示字體、邊框、打印紙張等等并將其存盤。(以下示例中該表格名為 "temp.xls" )當(dāng)然啦,直接使用空白的 Excel 文件也是可以的,不過你要編程自動生成表格邊框、背景顏色、單元格格式等一些內(nèi)容,這些涉及到 Excel 編程,我以后會在 Excel 專欄里詳細(xì)敘述,這里就不多說了。www.3lian.com
3、然后你就可以在 Access 里面制作你自己的打印預(yù)覽窗體了,在窗體中安排 2 個命令按鈕,在名為預(yù)覽的按鈕的 click 事件里輸入以下代碼:
Private Sub ExcelPreview_Click()
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:reprottemp.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一個單元格內(nèi)的數(shù)據(jù),可根據(jù)需要無限次加入
xlBook.Save
xlSheet.PrintPreview '如果是要打印,只要把 PrintPreview 改為 PrintOut
xlBook.close
xlApp.Quit
End Sub
2、其次,你要做好一張空白的 Excel 電子表格,設(shè)定好顯示字體、邊框、打印紙張等等并將其存盤。(以下示例中該表格名為 "temp.xls" )當(dāng)然啦,直接使用空白的 Excel 文件也是可以的,不過你要編程自動生成表格邊框、背景顏色、單元格格式等一些內(nèi)容,這些涉及到 Excel 編程,我以后會在 Excel 專欄里詳細(xì)敘述,這里就不多說了。www.3lian.com
3、然后你就可以在 Access 里面制作你自己的打印預(yù)覽窗體了,在窗體中安排 2 個命令按鈕,在名為預(yù)覽的按鈕的 click 事件里輸入以下代碼:
Private Sub ExcelPreview_Click()
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:reprottemp.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一個單元格內(nèi)的數(shù)據(jù),可根據(jù)需要無限次加入
xlBook.Save
xlSheet.PrintPreview '如果是要打印,只要把 PrintPreview 改為 PrintOut
xlBook.close
xlApp.Quit
End Sub
相關(guān)文章
Access可以設(shè)置數(shù)據(jù)庫密碼嗎?Access設(shè)置數(shù)據(jù)庫密碼教程
Access是由微軟發(fā)布的關(guān)聯(lián)式數(shù)據(jù)庫管理系統(tǒng)。它結(jié)合了 Microsoft Jet Database Engine 和 圖形用戶界面兩項特點,是 Microsoft Office 的系統(tǒng)程式之一,下面跟著小編來學(xué)習(xí)2023-02-24Access如何導(dǎo)出access表格數(shù)據(jù)?Access導(dǎo)出access表格數(shù)據(jù)教程
Access是由微軟發(fā)布的關(guān)聯(lián)式數(shù)據(jù)庫管理系統(tǒng)。它結(jié)合了 Microsoft Jet Database Engine 和 圖形用戶界面兩項特點,是 Microsoft Office 的系統(tǒng)程式之一。下面來看看在這里怎2023-02-24Access如何創(chuàng)建數(shù)據(jù)庫?Access創(chuàng)建數(shù)據(jù)庫教程
access是由微軟發(fā)布的一款關(guān)系數(shù)據(jù)庫管理系統(tǒng),讓用戶擁有強大的數(shù)據(jù)處理功能,主要應(yīng)用于網(wǎng)站數(shù)據(jù)存儲、軟件數(shù)據(jù)存儲等,下面來看看怎么去創(chuàng)建數(shù)據(jù)庫吧2022-10-19Access如何設(shè)置單元格居中?Access設(shè)置單元格居中方法
Access數(shù)據(jù)庫全稱Microsoft Office Access,是由微軟開發(fā)的一款關(guān)系數(shù)據(jù)庫管理系統(tǒng),在軟件中大家知道怎么去設(shè)置單元格居中嗎?一起來看看2022-10-19- access是由微軟發(fā)布的一款關(guān)系數(shù)據(jù)庫管理系統(tǒng),主要應(yīng)用于小型企業(yè),或者大公司的部門,今天咱們就來學(xué)習(xí)下在access中怎么隱藏表吧2022-11-04
Access數(shù)據(jù)庫圖片數(shù)據(jù)怎么轉(zhuǎn)換成位圖?
Access數(shù)據(jù)庫圖片數(shù)據(jù)怎么轉(zhuǎn)換成位圖?Access數(shù)據(jù)庫中所有圖片需要轉(zhuǎn)成位圖,該怎么操作呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2021-03-29access窗體中怎么添加條形碼? access條形碼生成教程
access窗體中怎么添加條形碼? access窗體中想要插入條形碼,該怎么插入呢?下面我們就來看看access條形碼生成教程,需要的朋友可以參考下2021-02-24access數(shù)據(jù)庫怎么實現(xiàn)過期日期提醒? access到期提醒的方法
access數(shù)據(jù)庫怎么實現(xiàn)過期日期提醒?access數(shù)據(jù)庫表格中想要制作一個過期提醒,該怎么制作這個功能呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2021-02-24- Access數(shù)據(jù)表怎么顯示文檔選項卡?Access數(shù)據(jù)庫中的表格想要顯示文檔選項卡,該怎么設(shè)置呢?下面我們就來看看詳細(xì)的教程,需要的朋友可以參考下2021-02-08
access表重命名后沒變怎么辦? access數(shù)據(jù)庫表重命名的技巧
access表重命名后沒變怎么辦?access數(shù)據(jù)庫中的數(shù)據(jù)表想要進行重命名,該怎么有效的重命名呢?下面我們就來看看access數(shù)據(jù)庫表重命名的技巧,需要的朋友可以參考下2021-01-13