数据库应用中很关键的数据输出形式是“报表”，

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