主题：[求助]word报表连续多页预览打印时，每页行错后

1、第一种情况：word模板就一页，见图。我在模板文字的最后一行删除最后字符后的所有回车符（空行）。

但是当选中多行进行预览或打印时，从第二页起，逐行错后。需要怎样使每行记录只在本页显示不错后。

2、第二种情况：一条记录占用word文档的两张页面，同样出现上述情况，要怎样处理？

谢谢！

谢谢甜老师！

加了代码   wrt.RecordsOnEachPage  =1  ，单页模板没问题了。

那么，一条记录包括两页模板的怎样设置呢？  就是用两页打印一条记录。如图：

谢谢老师！都解决了，还剩下一点小瑕疵，单页模板和双页模板最后会多出一张空白页，能不能处理？

请老师帮忙看一下双页模板的预览代码，是否存在问题，谢谢！

Dim Result As DialogResult
Result = MessageBox.Show("将按照模板生成预览文书,但不会保存,可供打印!"& vbcrlf &"你可以选中多行行头,批量预览文书!"& vbcrlf &"是---生成"& vbcrlf &"否---返回", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    '预览和生成分开处理,用下面代码预览
   
    Dim tm As String  = ProjectPath & "Attachments\传piao.doc" '指定模板文件
    With Tables("传piao编辑_table1")
        If .TopPosition > -1 Then '如果选定区域包括数据行
            Dim fileName As String = ProjectPath & "Reports\传piao\预览.doc" '指定目标文件
            Dim wrt As New WordReport(Tables("传piao编辑_table1"),tm,fileName) '定义一个WordReport
            For i As Integer = .TopPosition To .BottomPosition
                Dim r As Row = .Rows(i)
                wrt.BuildOne(r)
                wrt.RecordsOnEachPage  =1
            Next
            wrt.Show() '显示报表
        End If
    End With   
Else
    Return
End If

"如果写代码，那就指定 RecordsOnEachPage，不需要用回车"---这句不理解。

请老师看一下关于双页报表的模版实例，第二页产生的空行怎样消除？

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报表测试.rar

谢谢甜老师！

老师太强大了，用了这么久的word，看了半天，也不知道怎样操作，请老师说详细点。有好些模板都需要这样处理。