代码如下：
If Tables("职工信息").Current Is Nothing Then
Return
End If
Dim bendilujing As String
Dim tm As String = ProjectPath & "Attachments\职工资料卡.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\职工资料卡.doc" '指定目标文件
Dim wrt As New WordReport(Tables("职工信息"),tm,fl) '定义一个WordReport
For Each r As Row In Tables("职工信息").Rows
bendilujing = ProjectPath + "Images\职工信息\" + r("头像")
wrt.ReplaceWithImage("[头像]",bendilujing,100,120)
wrt.BuildOne(r) '逐行生成报表
Next
wrt.Show() '显示报表
生成的报表和报表模版如下：
1、一共四条记录，但是头像都是第一个人的。
2、从第二页开始首行多了一个回车，导致不是每页显示一个人信息
求版主帮帮忙，谢谢
加好友 
发短信
Post By：2015/10/21 16:20:00 [显示全部帖子]
