主题：遍历打印问题

Dim Book As New XLS.Book(ProjectPath & "Attachments\EDI.xls")
Dim fl As String = ProjectPath & "Reports\EDI.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\EDI.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.save
App.Visible = 1
Ws.PrintPreview
app.quit

 

以上是正常的打印代码

 

我想遍历打印，套用遍历代码，实现打印所有行的内容

For Each r As Row In Tables("EDI").Rows
    ......
Next

没必要遍历吧？参考下面这个章节制定模板，注意细节区设置！

 

最简单的例子

我们看看如何用Excel报表来打印订单表。

1、启动Excel，按下图所示，设计好模板：

在项目文件目录的“CaseStudy\Attachments”子目录下，有一个已经按上图所示设计好的Excel文件，名为“订单.XLS”，可以直接使用。

2、保存设计好的Excel文件，记住保存的位置和文件名。

3、在Foxtable中打开示例文件“Excel报表.Table”，选择“订单”表，然后在“打印输出”功能区的“Excel报表”功能组，单击“管理器”按钮：

4、在Excel报表管理器中，新建一个报表，将新建报表的名称重命名为“订单”；然后单击属性“模板文件”右侧的按钮，将模板文件设为我们刚刚设计好的Excel文件；接着单击属性“目标文件”右侧的按钮，设置目标文件；所谓目标文件，就是根据模板文件生成的Excel报表文件，可以和模板文件采用同样的名称；设置完成后，单击“确定”按钮关闭管理器窗口。

5、在“打印输出”功能区的“Excel报表”功能组，单击“报表输出”按钮，会列出定义好的Excel报表供选择，单击其中一个，即可根据模板生成Excel报表：