主题：关于窗口打印

如果这个窗口已经打开的话：

 

Dim doc As PrintDoc = Forms("窗口名").GernatePrintDoc()
doc.Print()

那就没有办法

似乎没有办法，要打印你只能放在窗口中，但是这样又不能分组。

 

 

一个折中方案，改用复选框(CheckBox)模拟单选框，自己设计每个复选款的CheckedChanged事件代码，选中后将同组复选框的Checked属性设置为False

我再改一下，全局事件增加CheckedChanged，这样9楼方案可以轻松实现

设置每个复选框的代码，例如对于checkBox1：

 

If e.Sender.Checked = True Then

   e.Form.Controls("CheckBox2").checked =false

   e.Form.Controls("CheckBox3").checked =false

End If

不能这么定义，直接tables("车辆业务")，或者在事件代码的开始位置：

dim dt as table =tables("车辆业务")

 

不相关的问题，最好单独发帖提问。