FarPoint.Web.Spread.PrintInfo info = new FarPoint.Web.Spread.PrintInfo();
info.BestFitCols = true;
info.BestFitRows = true;
info.Centering = Centering.Both;
info.ColEnd = 2;
info.ColStart = 2;
info.FirstPageNumber = 1;
info.Footer = "footer";
info.FooterHeight = 20;
info.Header = "header";
info.HeaderHeight = 30;
info.Margin = new PrintMargin(20, 20, 20, 02, 20, 20);
info.Opacity = 20;
info.Orientation = PrintOrientation.Auto;
info.PageEnd = 20;
info.PageOrder = PrintPageOrder.Auto;
info.PageStart = 2;
info.PrintType = PrintType.All;
info.RepeatColEnd = 2;
info.RepeatColStart = 2;
info.RepeatRowEnd = 2;
info.RepeatRowStart = 2;
info.RowEnd = 2;
info.RowStart = 2;
info.ShowBorder = true;
info.ShowColumnFooter = PrintHeader.Hide;
info.ShowColumnFooterEachPage = true;
info.ShowColumnHeader = PrintHeader.Hide;
info.ShowGrid = true;
info.ShowRowHeader = PrintHeader.Hide;
info.ShowSubtitle = true;
info.ShowTitle = true;
info.SmartPrintPagesTall = 2;
info.SmartPrintPagesWide = 2;
SmartPrintRulesCollection printrules = new SmartPrintRulesCollection();
printrules.Add(new BestFitColumnRule(ResetOption.None));
printrules.Add(new LandscapeRule(ResetOption.None));
printrules.Add(new ScaleRule(ResetOption.All, 1.0f, .4f, .2f));
printrules.Add(new SmartPaperRule(ResetOption.Current));
info.SmartPrintRules = printrules;
info.UseMax = true;
info.UseSmartPrint = true;
info.ZoomFactor = 2;
FpSpread1.SavePdf("C:\\pdffile.pdf");
Dim info As New FarPoint.Web.Spread.PrintInfo()
info.BestFitCols = True
info.BestFitRows = True
info.Centering = Centering.Both
info.ColEnd = 2
info.ColStart = 2
info.FirstPageNumber = 1
info.Footer = "footer"
info.FooterHeight = 20
info.Header = "header"
info.HeaderHeight = 30
info.Margin = New PrintMargin(20, 20, 20, 2, 20, 20)
info.Opacity = 20
info.Orientation = PrintOrientation.Auto
info.PageEnd = 20
info.PageOrder = PrintPageOrder.Auto
info.PageStart = 2
info.PrintType = PrintType.All
info.RepeatColEnd = 2
info.RepeatColStart = 2
info.RepeatRowEnd = 2
info.RepeatRowStart = 2
info.RowEnd = 2
info.RowStart = 2
info.ShowBorder = True
info.ShowColumnFooter = PrintHeader.Hide
info.ShowColumnFooterEachPage = True
info.ShowColumnHeader = PrintHeader.Hide
info.ShowGrid = True
info.ShowRowHeader = PrintHeader.Hide
info.ShowSubtitle = True
info.ShowTitle = True
info.SmartPrintPagesTall = 2
info.SmartPrintPagesWide = 2
Dim printrules As New SmartPrintRulesCollection()
printrules.Add(New BestFitColumnRule(ResetOption.None))
printrules.Add(New LandscapeRule(ResetOption.None))
printrules.Add(New ScaleRule(ResetOption.All, 1F, 0.4F, 0.2F))
printrules.Add(New SmartPaperRule(ResetOption.Current))
info.SmartPrintRules = printrules
info.UseMax = True
info.UseSmartPrint = True
info.ZoomFactor = 2
FpSpread1.SavePdf("C:\pdffile.pdf")