Access篩選記録後動態打印報錶

在工作生活中，數據量往往很大，我們一般都是數據篩選後纔打印報錶。

在Access報錶中，如何通過查詢篩選齣記録，再打印篩選好的記録呢？

如圖所示：在窗體中設置兩箇日期篩選文本框，輸入這兩箇日期，穫取這兩箇日期之間的數據。按“查詢”篩選數據，再打印齣該條件下的記録

詳細代碼：

Private Sub Command5_Click()
   Dim strSql As String
   strSql = "Select * from 錶1 where 供應時間 between #" & Me.Text1 & "#  and #" & Me.Text3 & "# "
   Me.子窗體.Form.RecordSource = strSql
   Me.子窗體.Form.Requery
End Sub

Private Sub Command6_Click()
    DoCmd.OpenReport "錶1", acViewPreview, , "供應時間 between #" & Me.Text1 & "#  and #" & Me.Text3 & "#"
End Sub

打印結果：報錶動態的顯示篩選後的結果