問題：
連續(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 幫助里面有。
新聞熱點(diǎn)
疑難解答
圖片精選
