最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Access怎樣制作復雜報表?Access制作復雜報表教程

  發(fā)布時間:2014-05-22 15:44:33   作者:佚名   我要評論
今天有人問如何用Access制作復雜的報表,話不多說,下面開始制作吧
1、首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項,在彈出的"引用"窗體中找到"現(xiàn)有引用"列表,在名為"Microsoft Excel x.0 Object Library"的項目前的方框內(nèi)打鉤。
2、其次,你要做好一張空白的 Excel 電子表格,設定好顯示字體、邊框、打印紙張等等并將其存盤。(以下示例中該表格名為 "temp.xls" )當然啦,直接使用空白的 Excel 文件也是可以的,不過你要編程自動生成表格邊框、背景顏色、單元格格式等一些內(nèi)容,這些涉及到 Excel 編程,我以后會在 Excel 專欄里詳細敘述,這里就不多說了。www.3lian.com
3、然后你就可以在 Access 里面制作你自己的打印預覽窗體了,在窗體中安排 2 個命令按鈕,在名為預覽的按鈕的 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

相關文章

最新評論

德惠市| 新密市| 呼玛县| 石台县| 昭通市| 城固县| 新建县| 隆昌县| 昌江| 白玉县| 辽中县| 蕲春县| 陆川县| 新邵县| 嘉兴市| 天镇县| 名山县| 弋阳县| 岱山县| 怀来县| 大田县| 抚宁县| 富宁县| 丹凤县| 水城县| 阳原县| 清远市| 海兴县| 和静县| 临安市| 宁夏| 绥宁县| 甘洛县| 三穗县| 略阳县| 米易县| 乌鲁木齐县| 邹城市| 英超| 吴旗县| 道真|