回复 1楼xudapeng的帖子
你好,你可以使用SetRowPageBreak方法来指定分页的index
如下代码是每五行改页。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FpSpread1.ActiveSheet.SetRowPageBreak(5, True)
FpSpread1.ActiveSheet.SetRowPageBreak(10, True)
FpSpread1.ActiveSheet.SetRowPageBreak(15, True)
Dim pi As New FarPoint.Win.Spread.PrintInfo
pi.Preview = True
FpSpread1.ActiveSheet.PrintInfo = pi
FpSpread1.PrintSheet(FpSpread1.ActiveSheetIndex)
End Sub |