请教一个报表打印问题，急~！

magicmonkey

小弟做了一个窗体，只有复选框和一个子窗体，将复选框作为子窗体内容的筛选条件，最后将子窗体的内容打印输出。
一开始我使用“宏”成功地实现打印，但通过ACCESS的宏转VBA程序得到代码后将其代入则无法正确打印了，我原本的宏是“openreport”,筛选名称为自己创建的一个联合查询，装换后得到的VBA是objACC.DoCmd.OpenReport "有限公司", acViewNormal, "查询", "", acNormal，代入我的打印健的VBA后整体为：
Private Sub Command1_Click()   
    Dim objACC As Object
          Set objACC = CreateObject("ACCESS.Application")
        objACC.OpenCurrentDatabase "c:\企业登记注册材料查询系统v2.1.mdb"
        objACC.DoCmd.OpenReport "有限公司", acViewNormal, "查询", "", acNormal
        objACC.Quit
        Set objACC = Nothing
    End If
End Sub
但是却无法正常打印，打印时需要我输入查询条件forms!有限公司！check1，而不是直接根据我窗口的所选复选框进行筛选，请问各位高手应该如何改动？万分感谢。

chuang0321

forms!有限公司！check1应该是指你的窗体的复选框没有赋值，无法实现子窗体查询并输出报表吧？

神之翼

来学习学习～～～呵呵