Unit
WPCTRMemo

Declaration

TWPSetupPrinterEvent = procedure(
    Sender: TWPCustomRtfEdit;
    PrintParameter: TWPPrintParameter;
    aPrinter: TPrinter;
    BeforeStartDoc: Boolean;
    DevMode: PDevMode;
    PaintPageNumber: Integer;
    startpar: TParagraph;
    startposinpar: Integer;
    const PaintPage: TWPRTFEnginePaintPages;
    RTFPage: TWPVirtPage; // can be nil!
    ChangeFields: TWPSetupPrinterFields) of object;