数据库应用中很关键的数据输出形式是“报表”，ACCESS提供的报表向导，只针对国外的报表形式，就是线条较少的报表。而我们的中文报表，传统形式是线条较多的网格形式，所以，不能简单地通过向导来完成。现就本人使用ACCESS的经验，结合实例，谈一下如何在ACCESS数据库中制作我们的中文报表。 ---- “产品销售利润明细表”的制作： ---- 1． 新建报表：选“自动报表：表格”，数据来源选表如XSLR表，确定后，产生一个简单的报表，在此基础上进行修改。 ---- 2． 页面设置：边距方面，调整靠左、靠右来达到最大打印范围。页面方面，打印方向设置为纵向，纸张大小选自定义大小，宽度为1660（最大），长度为1100（一页纸长度），单位为0.01英寸。 ---- 3． 版面设置：删除报表页眉、报表页脚。将页面页眉的内容删除。在页面页眉中插入对象，选MICROSOFT WORD文档，在WORD文档中画出表头，填上内容，注意，汉字之间要空一格，否则，到ACCESS报表输出时，汉字会出现乱码。对此OLE控件设置属性：背景样式为“透明”，边框样式为“透明”。在主体部件插入对象，选MICROSOFT WORD文档，在WORD文档中画出表格线方格，行宽可比表头行宽大一些，对此OLE控件设置属性：背景样式为“透明”，边框为实线，边框宽度为细线，设置各字段文字类型及大小，将各字段调整到方格内。 ---- 4． 在DETAIL的FORMAT事件中写入代码，以完成对零值的屏蔽。代码如下：（A3至A13为数值型字段） Private Sub Detail_Format (Cancel As Integer, FormatCount As Integer) If A3 = 0 Then A3.Visible = False Else A3.Visible = True End If If A4 = 0 Then A4.Visible = False Else A4.Visible = True End If If A7 = 0 Then A7.Visible = False Else A7.Visible = True End If If A8 = 0 Then A8.Visible = False Else A8.Visible = True End If If A9 = 0 Then A9.Visible = False Else A9.Visible = True End If If A11 = 0 Then A11.Visible = False Else A11.Visible = True End If If A12 = 0 Then A12.Visible = False Else A12.Visible = True End If If A13 = 0 Then A13.Visible = False Else A13.Visible = True End If End Sub 本文作者:html教程
