Office中国论坛/Access中国论坛

标题: 请教一个报表打印问题，急~！ [打印本页]

作者: magicmonkey 时间: 2010-2-22 11:49
标题: 请教一个报表打印问题，急~！
小弟做了一个窗体，只有复选框和一个子窗体，将复选框作为子窗体内容的筛选条件，最后将子窗体的内容打印输出。
一开始我使用“宏”成功地实现打印，但通过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 时间: 2010-2-22 15:54
forms!有限公司！check1应该是指你的窗体的复选框没有赋值，无法实现子窗体查询并输出报表吧？

作者: 神之翼 时间: 2010-4-14 23:55
来学习学习～～～呵呵

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)