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