for (int i = 0; i <= 200; i++)
fpSpread1.ActiveSheet.Cells[1, i].Text = "Test";
PrintInfo pt = new PrintInfo();
SmartPrintRulesCollection ptRules = new SmartPrintRulesCollection();
ptRules.Add(new SmartPaperRule());
pt.SmartPrintRules = ptRules;
pt.UseSmartPrint = true;
pt.PrintToPdf = true;
pt.PdfFileName = "C:\\SmartPaperRule.pdf";
fpSpread1.ActiveSheet.PrintInfo = pt;
fpSpread1.PrintSheet(0);
Dim i As Integer
For i = 0 To 200
fpSpread1.ActiveSheet.Cells(1, i).Text = "Test"
Next i
Dim pt As New PrintInfo()
Dim ptRules As New SmartPrintRulesCollection()
ptRules.Add(New SmartPaperRule())
pt.SmartPrintRules = ptRules
pt.UseSmartPrint = True
pt.PrintToPdf = True
pt.PdfFileName = "C:\SmartPaperRule.pdf"
fpSpread1.ActiveSheet.PrintInfo = pt
fpSpread1.PrintSheet(0)