Public Overloads Function Add( _
   ByVal value As SmartPrintRule _
) As Integer

Dim instance As SmartPrintRulesCollection
Dim value As SmartPrintRule
Dim value As Integer
 
value = instance.Add(value)

public int Add( 
   SmartPrintRule value
)

FarPoint.Win.Spread.SmartPrintRulesCollection rules = new FarPoint.Win.Spread.SmartPrintRulesCollection();
FarPoint.Win.Spread.PrintInfo pi = new 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.5f));
rules.Add(new FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None));
pi.SmartPrintRules = rules;
fpSpread1.ActiveSheet.PrintInfo = pi;

private void button1_Click(object sender, System.EventArgs e)
{
DialogResult dlg;
dlg = MessageBox.Show("Do you want to clear the rules from the collection?");
if (dlg == DialogResult.OK)
{
rules.Clear();
}
}

Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection
Dim pi As New 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

Private Sub 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()
End If
End Sub