时间:2021-05-22
1、首先找到 VBA 编程界面并找到"工具"菜单并单击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"Microsoft Excel x.0 Object Library"的项目前的方框内打钩。
2、其次,你要做好一张空白的 Excel 电子表格,设定好显示字体、边框、打印纸张等等并将其存盘。(以下示例中该表格名为 "temp.xls" )当然啦,直接使用空白的 Excel 文件也是可以的,不过你要编程自动生成表格边框、背景颜色、单元格格式等一些内容,这些涉及到 Excel 编程,我以后会在 Excel 专栏里详细叙述,这里就不多说了。
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
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
如何制作复杂报表——利用excel输出复杂报表在读这篇文章以前首先要提醒大家,Access本身的报表也具有很强的实用性和强大的功能,只有
Access如何创建空表?今天我们就来看看access创建空白报表的教程。软件名称:MicrosoftOffice2013专业增强官方版(32位+64位)软件大
access中计算控件的使用方法是: 1、打开access,找到报表,选择并右键单击选择“设计视图”。 2、打开报表后,选择“设计”里面的“文本框”,插入到
数据库应用中很关键的数据输出形式是“报表”,ACCESS提供的报表向导,只针对国外的报表形式,就是线条较少的报表。而我们的中文报表,传统
sql语句不能创建的是报表。在Access中提供3种创建报表的方式:使用“自动报表”功能,使用向导功能和使用“设计”视图创建。所以使用SQL语句不能创建报表。