Dim rules AsNew FarPoint.Win.Spread.SmartPrintRulesCollection
Dim pi AsNew FarPoint.Win.Spread.PrintInfo
Dim obj AsNewObject
obj = New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None)
IfTypeOf obj Is FarPoint.Win.Spread.SmartPrintRule Then
rules.Add(obj)
ElseThrowNew ArgumentException("Invalid object type specified: " + obj.GetType().ToString() + " (must be SmartPrintRule).")
EndIf
pi.SmartPrintRules = rules
FpSpread1.ActiveSheet.PrintInfo = pi