那就不要控制分页。也就是把分组的那个1的参数去掉。

 然后，控制好细节区的行数据，比如不够10行的，补足空白，使其刚好是一张A4纸的大小。

如果取掉那个1，在细节区加的数字就起不了作用了，如下边的代码，想显示12行，但是出不来

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

 要不这样，按照顺序生成，生成报表以后，再用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

此主题相关图片如下：打印报表.jpg

上边这个图片模板里是这样写的，12没有起到作用。现在的问题是如果顺序打印就会有上图上边和下边的半个表，不能裁剪，如果能够一张A4纸打印2组就好了