Dim pi As New FarPoint.Win.Spread.PrintInfo()
pi.UseMax = False
FpSpread1.Sheets(0).PrintInfo = pi
FpSpread1.Sheets(0).SetColumnPageBreak(5, True)
' Code in button click event
Dim i() As Integer
Dim o As Object
i = FpSpread1.GetColumnPageBreaks(0)
For Each o In i
ListBox1.Items.Add(o)
Next