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

問題：
    連續(xù)或者單個(gè)窗體，如何打印當(dāng)前顯示的記錄？當(dāng)前窗體還有對(duì)應(yīng)的子窗體，也要一起打印出來
    我在一個(gè)窗體里有一個(gè)單號(hào),大子窗體里有幾組數(shù)據(jù), 我的報(bào)表是一組數(shù)據(jù)一頁,請(qǐng)問如何實(shí)現(xiàn)按一下打印,能夠只打印當(dāng)前單號(hào)的數(shù)據(jù)報(bào)表？
    回答：
    這個(gè)問題太簡(jiǎn)單，我就不另外做說明了，請(qǐng)去看羅斯文示例數(shù)據(jù)庫的“訂單”窗體上“打印發(fā)貨單”按鈕的單擊事件的代碼
    http://access911.net/down/eg/northwind2003.rar
    http://access911.net/down/eg/northwind97.rar
    Sub 打印發(fā)貨單_Click()
    ' 這段代碼由“命令按鈕向?qū)А眲?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));
    請(qǐng)去參考一下 OpenReport 的語法，在 ACCESS 幫助里面有。