TJvTFPrinter

type TJvTFPrinter = class(TJvTFComponent)

protected

  FPageLayout: TJvTFPrinterPageLayout;

  FState: TJvTFPrinterState;

  FDocDateTime: TDateTime;

  FPageCount: Integer;

  FConvertingProps: Boolean;

  FAborted: Boolean;

  procedure SetMarginOffset();

  function GetMarginOffset();

  function GetUnprintable;

  procedure MarginError; dynamic;

  procedure InitializeMargins;

  property BodyHeight: Integer; [r]

  property BodyWidth: Integer; [r]

  property BodyLeft: Integer; [r]

  property BodyTop: Integer; [r]

  procedure DrawBody(); virtual;

  procedure DrawHeader(); virtual;

  procedure DrawFooter(); virtual;

  procedure SetTitle(); virtual;

  function GetPageCount;

  procedure SetMeasure(); virtual;

  procedure CreateLayout; virtual;

  procedure SetPropertyCheck; dynamic;

  procedure GetHeaderFooterRects();

  procedure CreateDoc; dynamic;

  procedure NewPage; dynamic;

  procedure FinishDoc; dynamic;

  procedure NewDoc; dynamic;

  property DirectPrint: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  property PageCount: Integer; [r]

  property Pages []: TBitmap; [r]

  function ConvertMeasure();

  function ScreenToPrinter();

  function PrinterToScreen();

  property State: TJvTFPrinterState; [r]

  procedure FreeDoc; dynamic;

  procedure Print; dynamic;

  procedure AbortPrint;

  property DocDateTime: TDateTime; [r]

  property ConvertingProps: Boolean; [r]

  procedure SaveDocToFiles();

  property Aborted: Boolean; [r]

published

  property PageLayout: TJvTFPrinterPageLayout; [rw]

  property Measure: TJvTFPrinterMeasure; [rw]

  property OnDrawBody: TJvTFPrinterDrawEvent; [rw]

  property OnDrawHeader: TJvTFPrinterDrawEvent; [rw]

  property OnDrawFooter: TJvTFPrinterDrawEvent; [rw]

  property OnPrintProgress: TJvTFProgressEvent; [rw]

  property OnAssembleProgress: TJvTFProgressEvent; [rw]

  property OnMarginError: TNotifyEvent; [rw]

  property Title: string; [rw]

end;

TJvTFPrinter

TJvTFComponent

TObject