ACCESS数据库中的中文报表制作

数据库应用中很关键的数据输出形式是“报表”，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