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