tiantian，睡了吗？又一个问题，关于打印事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

之前，加入了一段代码到打印事件：

Select e.Book.TempLate

Case "派工表模板"

Dim Sheet As XLS.Sheet = e.Book.Sheets(0)

Sheet(3,9).Value = "<日期 >= # " & Date.Today & "#>" '写入打印条件

End Select

打印范围从今天的数据开始打印

现在，我设置了复选框，如果选中了几行，就能打几行，该如何修改我这个代码呢？

此主题相关图片如下：qq图片20150313202547.png

Select e.Book.TempLate

Case "派工表模板"

Dim Sheet As XLS.Sheet = e.Book.Sheets(0)

Dim r As Row In Tables("派工表“).Rows

If r.Checked = True

Sheet(3,9).Value = GetCheckedRows

Else

Sheet(3,9).Value = "<日期 >= # " & Date.Today & "#>" '写入打印条件

End If

End Select

这样吗？

主题：tiantian，睡了吗？又一个问题，关于打印事件