---- 數據庫應用中很關鍵的數據輸出形式是“報表”,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