解析ACCESS如何打印窗體中當(dāng)前顯示的記錄

2024-09-07 19:03:50

字體：大中小

供稿：網(wǎng)友

問題：

連續(xù)或者單個(gè)窗體，如何打印當(dāng)前顯示的記錄？當(dāng)前窗體還有對應(yīng)的子窗體，也要一起打印出來

我在一個(gè)窗體里有一個(gè)單號,大子窗體里有幾組數(shù)據(jù),我的報(bào)表是一組數(shù)據(jù)一頁,請問如何實(shí)現(xiàn)按一下打印,能夠只打印當(dāng)前單號的數(shù)據(jù)報(bào)表？

回答：

這個(gè)問題太簡單，我就不另外做說明了，請去看羅斯文示例數(shù)據(jù)庫的“訂單”窗體上“打印發(fā)貨單”按鈕的單擊事件的代碼

http://access911.net/down/eg/northwind2003.rar
http://access911.net/down/eg/northwind97.rar

以下為引用的內(nèi)容：
Sub 打印發(fā)貨單_Click()
' 這段代碼由“命令按鈕向?qū)?rdquo;創(chuàng)建。
On Error GoTo Err_PrintInvoice_Click
　　
　　Dim strDocName As String
　　strDocName = "發(fā)貨單"
　　' 打印“發(fā)貨單”報(bào)表，使用“發(fā)貨單篩選”查詢打印當(dāng)前訂單的發(fā)貨單。
　　DoCmd.OpenReport strDocName, acViewNormal, "發(fā)貨單篩選"
　　
Exit_PrintInvoice_Click:
　　Exit Sub
　　
Err_PrintInvoice_Click:
　　' 如果用戶取消操作，不顯示錯(cuò)誤消息。
　　Const conErrDoCmdCancelled = 2501
　　If (Err = conErrDoCmdCancelled) Then
　　　　Resume Exit_PrintInvoice_Click
　　Else
　　　　MsgBox Err.Description
　　　　Resume Exit_PrintInvoice_Click
　　End If
　　
End Sub

這里的DoCmd.OpenReport strDocName, acViewNormal, "發(fā)貨單篩選"的"發(fā)貨單篩選"參數(shù)是一個(gè)查詢的名稱，該查詢代碼如下：

SELECT 發(fā)貨單.*

FROM 發(fā)貨單

WHERE (((發(fā)貨單.訂單ID)=Forms!訂單!訂單ID));

請去參考一下 OpenReport 的語法，在 ACCESS 幫助里面有。

上一篇：淺談Access如何維護(hù)表的參照完整性

下一篇：解答Perl下如何連接Access數(shù)據(jù)庫