解析ACCESS如何打印窗體中當前顯示的記錄_Access數據庫教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：怎樣為Access數據庫表添加日期或時間戳
      為了應用方便，您可能需要給數據庫的每條記錄都添加日期/時間戳，以便確定各個記錄添加到數據庫的時間。在Access數據庫應用中，使用Now()函數能夠輕松完成這個任務。本文將一步一步為
      問題： 
      

      連續或者單個窗體，如何打印當前顯示的記錄？當前窗體還有對應的子窗體，也要一起打印出來
      

      

      我在一個窗體里有一個單號,大子窗體里有幾組數據,我的報表是一組數據一頁,請問如何實現按一下打印,能夠只打印當前單號的數據報表？ 
      

      回答：
      

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

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

      

      
    
        
      
            以下為引用的內容：
      Sub 打印發貨單_Click()
      ' 這段代碼由“命令按鈕向導”創建。
      On Error GoTo Err_PrintInvoice_Click
      　　
      　　Dim strDocName As String
      　　strDocName = "發貨單"
      　　' 打印“發貨單”報表，使用“發貨單篩選”查詢打印當前訂單的發貨單。
      　　DoCmd.OpenReport strDocName, acViewNormal, "發貨單篩選"
      　　
      Exit_PrintInvoice_Click:
      　　Exit Sub
      　　
      Err_PrintInvoice_Click:
      　　' 如果用戶取消操作，不顯示錯誤消息。
      　　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, "發貨單篩選"的"發貨單篩選"參數是一個查詢的名稱，該查詢代碼如下：
      

      SELECT 發貨單.*
      

      FROM 發貨單
      

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

      請去參考一下 OpenReport 的語法，在 ACCESS 幫助里面有。
      分享：如何使用Access創建一個簡單MIS管理系統
      你家中的CD、VCD一定很多吧？是不是常遇到為找一張CD把一抽屜的碟子翻得亂七八糟的情況，你一定沒少受埋怨——你不想整理它們一下？如：影片是國產的、還是國外的，是言情
      


      

      


      來源：模板無憂//所屬分類：Access數據庫教程/更新時間：2009-05-25


      


      



      


      



      相關Access數據庫教程：