代码如下:
Dim Count As Integer =0
For Each Col As DataCol In Dt.DataCols
rt.Cells(6,Count).Text = Col.Name
For r As Integer = 0 To dt.DataRows.Count -1
rt.Cells(r +6,Count).Text =dt.dataRows(r)(Col.Name)
Next
Count = Count + 1
Next
rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Center
这个后面怎么加代码限制每页只能打印10行,超过10行换页打印。