Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread Namespace / PrintInfo Class / Clone Method
Example


In This Topic
    Clone Method (PrintInfo)
    In This Topic
    Creates a new PrintInfo object that is a copy of the current instance.
    Syntax
    'Declaration
     
    Public Overridable Function Clone() As Object
    'Usage
     
    Dim instance As PrintInfo
    Dim value As Object
     
    value = instance.Clone()
    public virtual object Clone()

    Return Value

    Object containing the cloned copy
    Example
    FarPoint.Win.Spread.PrintInfo pi = new
    FarPoint.Win.Spread.PrintInfo();
    FarPoint.Win.Spread.PrintMargin pm = new
    FarPoint.Win.Spread.PrintMargin();
    FarPoint.Win.Spread.SmartPrintRulesCollection rules = new
    FarPoint.Win.Spread.SmartPrintRulesCollection();
    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));
    pm.Left = 10;
    pm.Right = 10;
    pm.Top = 20;
    pm.Bottom = 40;
    pi.AbortMessage = "Do you want to cancel printing??";
    pi.BestFitCols = true;
    pi.BestFitRows = true;
    pi.ColEnd = 20;
    pi.ColStart = 1;
    pi.FirstPageNumber = 1;
    pi.Footer = "This is Page /p/nof /pc Pages";
    pi.Header = "Print Job For /nFPT Inc.";
    pi.JobName = "New Print Job";
    pi.Margin = pm;
    pi.Orientation = FarPoint.Win.Spread.PrintOrientation.Portrait;
    pi.PageEnd = 5;
    pi.PageOrder = FarPoint.Win.Spread.PrintPageOrder.Auto;
    pi.PageStart = 1;
    pi.Preview = false;
    pi.Printer = "HP6L";
    pi.PrintType = FarPoint.Win.Spread.PrintType.CellRange;
    pi.RowEnd = 20;
    pi.RowStart = 1;
    pi.ShowBorder = false;
    pi.ShowColor = false;
    pi.ShowColumnHeader = FarPoint.Win.Spread.PrintHeader.Hide;
    pi.ShowGrid = true;
    pi.ShowPrintDialog = true;
    pi.ShowRowHeader = FarPoint.Win.Spread.PrintHeader.Hide;
    pi.ShowShadows = false;
    pi.SmartPrintRules = rules;
    pi.UseMax = False;
    pi.UseSmartPrint = true;
    pi.ZoomFactor = 2;
    FarPoint.Win.Spread.PrintInfo clone = new
    FarPoint.Win.Spread.PrintInfo(pi)
    fpSpread1.ActiveSheet.PrintInfo = clone;
    
    Dim pi As New FarPoint.Win.Spread.PrintInfo
    Dim pm As New FarPoint.Win.Spread.PrintMargin
    Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection
    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))
    pm.Left = 10
    pm.Right = 10
    pm.Top = 20
    pm.Bottom = 40
    pi.AbortMessage = "Do you want to cancel printing??"
    pi.BestFitCols = True
    pi.BestFitRows = True
    pi.ColEnd = 20
    pi.ColStart = 1
    pi.FirstPageNumber = 1
    pi.Footer = "This is Page /p/nof /pc Pages"
    pi.Header = "Print Job For /nFPT Inc."
    pi.JobName = "New Print Job"
    pi.Margin = pm
    pi.Orientation = FarPoint.Win.Spread.PrintOrientation.Portrait
    pi.PageEnd = 5
    pi.PageOrder = FarPoint.Win.Spread.PrintPageOrder.Auto
    pi.PageStart = 1
    pi.Preview = False
    pi.Printer = "HP6L"
    pi.PrintType = FarPoint.Win.Spread.PrintType.CellRange
    pi.RowEnd = 20
    pi.RowStart = 1
    pi.ShowBorder = False
    pi.ShowColor = False
    pi.ShowColumnHeader = FarPoint.Win.Spread.PrintHeader.Hide
    pi.ShowGrid = True
    pi.ShowPrintDialog = True
    pi.ShowRowHeader = FarPoint.Win.Spread.PrintHeader.Hide
    pi.ShowShadows = False
    pi.SmartPrintRules = rules
    pi.UseMax = False
    pi.UseSmartPrint = True
    pi.ZoomFactor = 2
    Dim clone As New FarPoint.Win.Spread.PrintInfo(pi)
    FpSpread1.ActiveSheet.PrintInfo = clone
    
    See Also

    Reference

    PrintInfo Class
    PrintInfo Members

    User-Task Documentation

    Printing