TPrinter

type TPrinter = class(TObject)

protected

  procedure SelectCurrentPrinterOrDefault;

  procedure DoBeginDoc; virtual;

  procedure DoNewPage; virtual;

  procedure DoBeginPage; virtual;

  procedure DoEndPage; virtual;

  procedure DoEndDoc(); virtual;

  procedure DoAbort; virtual;

  procedure DoResetPrintersList; virtual;

  procedure DoResetFontsList; virtual;

  procedure DoEnumPrinters(); virtual;

  procedure DoEnumFonts(); virtual;

  procedure DoEnumPapers(); virtual;

  procedure DoEnumBins(); virtual;

  procedure DoInitialization; virtual;

  function DoSetPrinter(); virtual;

  function DoGetCopies; virtual;

  procedure DoSetCopies(); virtual;

  function DoGetOrientation; virtual;

  procedure DoSetOrientation(); virtual;

  function DoGetDefaultPaperName; virtual;

  function DoGetPaperName; virtual;

  procedure DoSetPaperName(); virtual;

  function DoGetDefaultBinName; virtual;

  function DoGetBinName; virtual;

  procedure DoSetBinName(); virtual;

  function DoGetPaperRect(); virtual;

  function DoSetPaperRect(); virtual;

  function DoGetPrinterState; virtual;

  procedure DoDestroy; virtual;

  function GetPrinterType; virtual;

  function GetCanPrint; virtual;

  function GetCanRenderCopies; virtual;

  function GetXDPI; virtual;

  function GetYDPI; virtual;

  function GetBins; virtual;

  procedure CheckRawMode();

  procedure RawModeChanging; virtual;

  procedure PrinterSelected; virtual;

  function DoGetDefaultCanvasClass; virtual;

  property PrinterFlags: TPrinterFlags; [rw]

public

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Abort;

  procedure BeginDoc;

  procedure EndDoc;

  procedure NewPage;

  procedure BeginPage;

  procedure EndPage;

  procedure Refresh;

  procedure SetPrinter();

  procedure RestoreDefaultBin; virtual;

  function Write();

  property PrinterIndex: Integer; [rw]

  property PrinterName: string; [r]

  property PaperSize: TPaperSize; [r]

  property Orientation: TPrinterOrientation; [rw]

  property PrinterState: TPrinterState; [r]

  property Copies: Integer; [rw]

  property Printers: TStrings; [r]

  property FileName: string; [rw]

  property Fonts: TStrings; [r]

  property Canvas: TCanvas; [r]

  property CanvasClass: TPrinterCanvasRef; [rw]

  property PageHeight: Integer; [r]

  property PageWidth: Integer; [r]

  property PageNumber: Integer; [r]

  property Aborted: Boolean; [r]

  property Printing: Boolean; [r]

  property Title: string; [rw]

  property PrinterType: TPrinterType; [r]

  property CanPrint: Boolean; [r]

  property CanRenderCopies: Boolean; [r]

  property XDPI: Integer; [r]

  property YDPI: Integer; [r]

  property RawMode: Boolean; [rw]

  property DefaultBinName: string; [r]

  property BinName: string; [rw]

  property SupportedBins: TStrings; [r]

end;

TPrinter

TObject