主题：[求助]如何设置一张A4纸只打印2组记录，求高人指点

 没有简便的方法了......

 要不这样，按照顺序生成，生成报表以后，再用vba打开文件，插入换行符号。

 你把你生成的报表发上来看看。

参考代码

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To rg.Rows.count
    If ws.cells(i,1).Text Like "班(组)*" Then
        Ws.Rows(i+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
    End If
Next
app.visible = True

看7楼的方式。填充行，是需要你指定换页行数才能生效的，你这种方式不适合。你需要用代码的方法解决。

你做个实例发上来吧。