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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何逐行循环打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91951)

--  作者：lidusan
--  发布时间：2016/10/22 17:32:00
--  [求助]如何逐行循环打印

看说明文档里的代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit

可以打印选中的主表单行,也可以选择多行,但选择多行的话会让页尾号连续,看到大红袍老师给用户说可以把doc放进循环里面，循环每一行，每次生成一次doc，每次打印一次doc。
这样每次打印的表都是独立的.又看了帮助翻了论坛试过几次无果,求循环主表每一行的打印方法. 谢谢

[此贴子已经被作者于2016/10/22 17:47:17编辑过]

--  作者：lidusan
--  发布时间：2016/10/22 17:33:00
--
怎么看不到附件?
[此贴子已经被作者于2016/10/22 17:48:16编辑过]

--  作者：狐狸爸爸
--  发布时间：2016/10/23 15:42:00
--

例如打印前两行：

For i As Integer = 0 To 1
    Tables("出库").Position = i
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
    Dim fl As String = ProjectPath & "Reports\\出库单.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut
    App.Quit
Next

--  作者：lidusan
--  发布时间：2016/10/24 18:34:00
--
谢谢,非常实用.