推荐订阅源

    i = rs1.recordcount 统计数据记录数
    j = i Mod 5  设置打印格为4格   
    If j < 2 Then
     X = 5 宽度    记录数小于3条的宽度
    Else
     X = 65 宽度  记录大于2条的宽度
    End If   
    If j < 2 Then 记录数小于三条
    Y = 10  + 35  *  (j - 1)  行高+行间距*记录数
    Else
    Y = 10 +  35  *  (j - 3)  记录数大于2条
    End If 

附图