Acce、ss怎樣制作復雜報表

發布時間:2017-08-15 14:00 來源:互聯網 當前欄目:web技術類

   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

神奇影院[www.aikan.tv/special/shenqiyingyuan/]

  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

  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、
  • 1、
  • 2、
  • 3、
  • 4、
  • 5、
  • 6、
  • 7、
  • 8、
  • 9、
  • 10、
  • 11、
  • 12、
  • 13、
  • 14、
  • 15、
  • 16、
  • 17、
  • 18、
  • 19、
  • 20、
  • 21、
  • 22、
  • 23、
  • 24、
  • 25、