Access怎樣制作復(fù)雜報(bào)表？Access制作復(fù)雜報(bào)表教程

2019-12-13 14:24:10

字體：大中小

供稿：網(wǎng)友

1、首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項(xiàng)，在彈出的"引用"窗體中找到"現(xiàn)有引用"列表，在名為"Microsoft Excel x.0 Object Library"的項(xiàng)目前的方框內(nèi)打鉤。
2、其次，你要做好一張空白的 Excel 電子表格，設(shè)定好顯示字體、邊框、打印紙張等等并將其存盤(pán)。(以下示例中該表格名為 "temp.xls" )當(dāng)然啦，直接使用空白的 Excel 文件也是可以的，不過(guò)你要編程自動(dòng)生成表格邊框、背景顏色、單元格格式等一些內(nèi)容，這些涉及到 Excel 編程，我以后會(huì)在 Excel 專(zhuān)欄里詳細(xì)敘述，這里就不多說(shuō)了。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ù)需要無(wú)限次加入

xlBook.Save

xlSheet.PrintPreview '如果是要打印，只要把 PrintPreview 改為 PrintOut

xlBook.close

xlApp.Quit

End Sub

上一篇：Access如何給字段添加有效性的教程

下一篇：access創(chuàng)建宏組的方法