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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印问题

共有1850人关注过本帖树形打印复制链接主题：打印问题

qaz17909

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

加好友

发短信

等级：三尾狐帖子：777 积分：8862 威望：0 精华：0 注册：2017/1/26 14:38:00

打印问题

Post By：2018/6/2 23:03:00 [只看该作者]

可否实现复选框选中的多个文件逐一根据模板生成word报表并打印，之后并自动关闭打开的word

有点甜

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

加好友

发短信

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

Post By：2018/6/3 11:55:00 [只看该作者]

写成循环，不就可以了？看看帮助文档

http://www.foxtable.com/webhelp/scr/2890.htm

qaz17909

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

加好友

发短信

等级：三尾狐帖子：777 积分：8862 威望：0 精华：0 注册：2017/1/26 14:38:00

顺序打印问题 发帖心情

Post By：2018/11/21 14:18:00 [只看该作者]

可以打印，但有个问题。我表格是按照编号排序的，现在发现打印顺序有的时候没有按照我编号的顺序打印，有的时候会乱，请问这是什么原因。

Dim t As Table = e.Form.Controls("Table1").Table

Dim ftp1 As New FTPClient

ftp1.Host=""

ftp1.Account = ""

ftp1.Password = ""

For Each r As Row In t.GetCheckedRows

Dim path As String = ProjectPath & "Reports\报告\" & r("报告编号") & "\"

If FileSys.DirectoryExists(path) = False Then

FileSys.CreateDirectory(path)

End If

Dim file As String = path & filesys.GetName(r("报告"))

If ftp1.Download(r("报告"),file) = True Then

Dim Proc As New Process '打开工作簿

Proc.File = file

Proc.Verb= "Print"

Proc.Start()

End If

有点甜

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

加好友

发短信

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

Post By：2018/11/21 14:43:00 [只看该作者]

你是说循环的时候，和你看到的table1的数据不同？执行下面代码，看弹出是否正确

For Each r As Row In t.GetCheckedRows

msgbox(r("报告编号"))

如果弹出有问题，试试改成这样弹出

For i As Integer = 0 To t.Rows.count-1
    t.position = i
    Dim r = t.Rows(i)
    If r.checked Then
        msgbox(r("报告编号"))
    End If
Next

下一主题 >> << 上一主题

主题：打印问题