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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → tiantian，睡了吗？又一个问题，关于打印事件

共有3532人关注过本帖树形打印复制链接主题：tiantian，睡了吗？又一个问题，关于打印事件

cyrollin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

tiantian，睡了吗？又一个问题，关于打印事件 发帖心情

Post By：2015/3/13 20:31:00 [只看该作者]

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

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

这样吗？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/14 9:26:00 [只看该作者]

Select e.Book.TempLate

Case "派工表模板"

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

dim ids as string

for each r as row in Tables("派工表“).Rows

ids = ids & "," & r("_Identify")

Sheet(3,9).Value = Sheet(3,9).Value = "<_Identify in (" & ids.trim(",") & ")>"

End Select

cyrollin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：5782 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2015/3/15 8:45:00 [只看该作者]

Bin 不行，生成的报表是空白

看附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/15 9:19:00 [只看该作者]

Select e.Book.TempLate
    Case "一周派工表模板"
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
        Dim ids As String
        For Each r As Row In Tables("派工表").GetCheckedRows
             ids = ids & "," & r("_Identify")
      Next
      Sheet(3,10).Value = "<_Identify in (" & ids.trim(",") & ")>"
End Select