麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 數據庫 > Access > 正文

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

2024-09-07 19:04:36
字體：大 中 小
來源：轉載
供稿：網友
1、首先找到 VBA 編程界面并找到"工具"菜單并單擊"引用..."菜單項，在彈出的"引用"窗體中找到"現有引用"列表，在名為"Microsoft Excel x.0 Object Library"的項目前的方框內打鉤。
2、其次，你要做好一張空白的 Excel 電子表格，設定好顯示字體、邊框、打印紙張等等并將其存盤。(以下示例中該表格名為 "temp.xls" )當然啦，直接使用空白的 Excel 文件也是可以的，不過你要編程自動生成表格邊框、背景顏色、單元格格式等一些內容，這些涉及到 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" + " 月"

'以上只更改了一個單元格內的數據，可根據需要無限次加入

xlBook.Save

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

xlBook.close

xlApp.Quit

End Sub

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 视频久久免费 | 国产免费激情视频 | 黄色影院在线看 | 免费毛片a线观看 | 男女生羞羞视频网站在线观看 | 免费观看一级黄色片 | 久久久综| 亚洲天堂成人在线观看 | 99国产精品国产免费观看 | 亚洲aⅴ免费在线观看 | 日韩做爰视频免费 | 亚洲精久| 国产精品成人av片免费看最爱 | 国内精品一级毛片免费看 | 人人舔人人射 | 日韩精品中文字幕在线播放 | 久久久青| 国产手机国产手机在线 | 中文字幕在线观看视频一区 | 久久精品伊人网 | 中文字幕在线观看网址 | 91久久极品少妇韩国 | 精品一区二区三区日本 | 久草在线网址 | 成人精品| 国产精品久久久久久久不卡 | 日本在线视频一区二区三区 | 国产正在播放 | 成人午夜免费看 | 91九色视频观看 | 亚州精品天堂中文字幕 | 91九色视频观看 | 国产高清自拍一区 | 国产精品成人亚洲一区二区 | 成人9禁啪啪无遮挡免费 | 911精品影院在线观看 | 在线成人免费网站 | 国产一区二区三区在线免费观看 | 久久久www成人免费精品 | 久夜tv| 色99久久|