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

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

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

谢谢！

看看这里

http://www.foxtable.com/webhelp/scr/2882.htm

如果写代码，那就指定 RecordsOnEachPage，不需要用回车

http://www.foxtable.com/webhelp/scr/2890.htm

谢谢甜老师！

加了代码   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\\传票.doc" \'指定模板文件
    With Tables("传票编辑_table1")
        If .TopPosition > -1 Then \'如果选定区域包括数据行
            Dim fileName As String = ProjectPath & "Reports\\传票\\预览.doc" \'指定目标文件
            Dim wrt As New WordReport(Tables("传票编辑_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

模板处理一下即可

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

点击浏览该文件:通知书.zip