可以打印，但有个问题。我表格是按照编号排序的，现在发现打印顺序有的时候没有按照我编号的顺序打印，有的时候会乱，请问这是什么原因。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
Next
加好友 
发短信
Post By：2018/6/2 23:03:00 [显示全部帖子]
