以连续形式打印所有记录访问

Question

我在Access中有一个连续的表单，其中包含可以从表单中过滤的记录集。见下图：

我希望能够打印所有选定的记录。将所选记录导出到报表或直接打印记录对我来说都很好。我一直在搜索，但所有帖子都是关于打印单个记录。

将过滤器添加到表单中，生成一个过滤器字符串，当表单上的某个过滤器字段发生更改时，该字符串会更新。

If txtDatumvan <> "" Then
    strFilter = " Clng(format(s.Begin_DatumTijd, 'yyyymmdd')) >= " & CLng(Format(Me.txtDatumvan, "yyyymmdd")) & " "

    If txtDatumTot <> "" Then
        strFilter = strFilter + " AND Clng(format(s.Begin_DatumTijd, 'yyyymmdd')) <= " & CLng(Format(Me.txtDatumTot, "yyyymmdd")) & ""
    End If

提前致谢，

FIXED：我将记录加载到报告中，而不是直接打印表单。我这样做是使用一个过滤字符串，它由表单顶部的文本框输入填充。

Answer 1

要将当前对象上的所有记录打印到该对象的默认打印机，可以使用以下VBA：

DoCmd.PrintOut acPrintAll

然而，连续形式对于打印来说是笨拙的。我建议你使用一份报告。如果您希望我向您展示如何将过滤器从表单转移到报表，则需要具体说明如何添加这些过滤器。