急急急，在批量打印中，如何做到，，，我设置有二张报表，，，一张为项目少于多少项打印报表1，为半张纸；否则为另一打印另一张报表，为一张纸。。。）自动判记录的项目数而套用各自的格式打印报表/？

批量打印代码：

Private Sub 批量打印_Click()
'On Error Resume Next
Dim strSQL As String
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strID As String
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Set conn = CurrentProject.Connection
   
    strSQL = "SELECT 病人资料总表.打印标记, 病人资料总表.病人ID, 病人资料总表.病人编号, 病人资料总表.姓名, " & _
        "病人资料总表.性别 , 病人资料总表.年龄, 病人资料总表.科别, 病人资料总表.床号, 病人资料总表.送检日期,  " & _
        "病人资料总表.检验日期, 病人资料总表.送检医生, 病人资料总表.检验者, 病人资料总表.审核者, " & _
        "病人资料总表.标本类型 , 病人资料总表.备注, 病人资料总表.项目名称, 病人资料总表.结果一,  " & _
        "病人资料总表.结果二, 病人资料总表.结果三, 病人资料总表.结果四, 病人资料总表.结果五, " & _
        "病人资料总表.结果六 , 病人资料总表.结果七, 病人资料总表.结果八, 病人资料总表.结果九,  " & _
        "病人资料总表.结果十, 病人资料总表.结果十一, 病人资料总表.结果十二, 病人资料总表.结果十三,  " & _
        "病人资料总表.结果十四, 病人资料总表.结果十五, 病人资料总表.结果十六, 病人资料总表.结果十七,  " & _
        "病人资料总表.结果十八, 病人资料总表.结果十九, 病人资料总表.结果二十, 项目.项目一, 项目.项目二,  " & _
        "项目.项目三, 项目.项目四, 项目.项目五, 项目.项目六, 项目.项目七, 项目.项目八, 项目.项目九,  " & _
        "项目.项目十, 项目.项目十一, 项目.项目十二, 项目.项目十三, 项目.项目十四, 项目.项目十五, 项目.项目十六, " & _
        "项目.项目十七, 项目.项目十八 , 项目.项目十九, 项目.项目二十, 项目.单位一, 项目.单位二, 项目.单位三, " & _
        "项目.单位四, 项目.单位五, 项目.单位六, 项目.单位七, 项目.单位八, 项目.单位九, 项目.单位十, " & _
        "项目.单位十一, 项目.单位十二, 项目.单位十三, 项目.单位十四, 项目.单位十五, 项目.单位十六,  " & _
        "项目.单位十七, 项目.单位十八, 项目.单位十九, 项目.单位二十, 项目.参考范围一, 项目.参考范围二,  " & _
        "项目.参考范围三, 项目.参考范围四, 项目.参考范围五, 项目.参考范围六, 项目.参考范围七, 项目.参考范围八, " & _
        "项目.参考范围九, 项目.参考范围十, 项目.参考范围十一, 项目.参考范围十二, 项目.参考范围十三,  " & _
        "项目.参考范围十四, 项目.参考范围十五, 项目.参考范围十六, 项目.参考范围十七, 项目.参考范围十八,  " & _
        "项目.参考范围十九, 项目.参考范围二十 " & _
        "FROM 病人资料总表 INNER JOIN 项目 ON 病人资料总表.项目名称 = 项目.项目名称 " & _
        "WHERE (((病人资料总表.打印标记)=True));"

   
   rst.Open strSQL, conn, adOpenKeyset, adLockReadOnly, adCmdText
   rst.MoveFirst
    Do While Not rst.EOF
    'Debug.Print rst.RecordCount
   ' For I = 0 To rst.RecordCount Step 1
    strID = ""
    Debug.Print rst!病人ID, " '" & rst!项目十四 & " '"
        strID = rst!病人编号
        If IsNull(rst!项目十四) Then
       ' rst.MoveNext
        'strID = strID & "," & rst!病人编号
        Debug.Print "1=1"

     'If IsNull(DLookup("项目十四", "批量打印查询", "病人编号='" & Me!日期查询!病人编号 & "'")) Then
   
    DoCmd.OpenReport "批量打印1", acNormal, "批量打印查询", "病人编号 ='" & strID & "'", acWindowNormal
   
    Else
   
    DoCmd.OpenReport "批量打印2", acNormal, "批量打印查询", "病人编号 ='" & strID & "'", acWindowNormal
    End If
        rst.MoveNext
     Loop
     rst.Close
   Set rst = Nothing
   Set conn = Nothing
End Sub

合并记录的你就在琢磨琢磨吧