Dim rules AsNew FarPoint.Win.Spread.SmartPrintRulesCollection
Dim pi AsNew FarPoint.Win.Spread.PrintInfo
rules.Add(New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None))
rules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5))
rules.Add(New FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None))
pi.SmartPrintRules = rules
FpSpread1.ActiveSheet.PrintInfo = pi
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg As DialogResult
dlg = MessageBox.Show("Do you want to clear the rules from the collection?")
If dlg = DialogResult.OK Then
rules.Clear()
EndIfEnd Sub