FarPoint.Win.Spread.SmartPrintRulesCollection rules = new
FarPoint.Win.Spread.SmartPrintRulesCollection();
FarPoint.Win.Spread.ScaleRule sr = new
FarPoint.Win.Spread.ScaleRule();
FarPoint.Win.Spread.PrintInfo pi = new
FarPoint.Win.Spread.PrintInfo();
sr.EndFactor = 0.5;
sr.Interval = 0.1;
sr.ResetOption = FarPoint.Win.Spread.ResetOption.None;
sr.StartFactor = 1.0;
rules.Add(sr);
pi.SmartPrintRules = rules;
pi.UseSmartPrint = true;
fpSpread1.ActiveSheet.PrintInfo = pi;
Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection
Dim sr As New FarPoint.Win.Spread.ScaleRule
Dim pi As New FarPoint.Win.Spread.PrintInfo
sr.EndFactor = 0.5
sr.Interval = 0.1
sr.ResetOption = FarPoint.Win.Spread.ResetOption.None
sr.StartFactor = 1.0
rules.Add(sr)
pi.SmartPrintRules = rules
pi.UseSmartPrint = True
FpSpread1.ActiveSheet.PrintInfo = pi