FarPoint.Web.Spread.SmartPrintRulesCollection rules = new FarPoint.Web.Spread.SmartPrintRulesCollection();
FarPoint.Web.Spread.PrintInfo pi = new FarPoint.Web.Spread.PrintInfo();
FarPoint.Web.Spread.SmartPrintRule spr;
spr = new FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None);
rules.Add(new FarPoint.Web.Spread.ScaleRule(FarPoint.Web.Spread.ResetOption.None,1, 2, 0.5f));
rules.Add(spr);
pi.SmartPrintRules = rules;
FpSpread1.ActiveSheetView.PrintInfo = pi;
if (rules.Contains(spr))
{
string msg = ("The collection contains the " + obj.ToString());
Response.Write(("<script language=\'javascript\'>alert(\'" + (msg + "\')</script>")));
}
Dim rules As New FarPoint.Web.Spread.SmartPrintRulesCollection
Dim pi As New FarPoint.Web.Spread.PrintInfo
Dim spr As FarPoint.Web.Spread.SmartPrintRule
spr = New FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None)
rules.Add(New FarPoint.Web.Spread.LandscapeRule(FarPoint.Web.Spread.ResetOption.None))
rules.Add(New FarPoint.Web.Spread.ScaleRule(FarPoint.Web.Spread.ResetOption.None, 1, 2, 0.5))
rules.Add(spr)
pi.SmartPrintRules = rules
FpSpread1.ActiveSheetView.PrintInfo = pi
If rules.Contains(spr) Then
Dim msg As String = "The collection contains the " & obj.ToString()
Response.Write("<script language='javascript'>alert('" & msg & "')>/script<")
End If