主题：[求助]代码优化

代码无法优化了，word报表本来就是比较慢的。你打印多少行数据？用多少秒？

Dim t As Table = e.Form.Controls("Table1").Table
For Each r1 As Row In t.GetCheckedRows()
    r1("已打印") = True
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = r1("箱号")
    Bar.BarRatio = 0.3
    Bar.BarHeight = 8
    bar.SaveImage(ProjectPath & "Images\myimg.wmf",300)
    Dim tm As String  = ProjectPath & "Attachments\物料标签.doc" '指定模板文件
    Dim fl1 As String = ProjectPath & "Reports\物料标签\" & r1("箱号") & "物料标签.doc"   
    Dim wrt As New WordReport(Tables("标签创建"),tm,fl1)
    wrt.BuildOne(r1) '逐行生成报表   
    wrt.Quit() '退出   
Next