ThtmlPagePrinted

type ThtmlPagePrinted = procedure(

  Sender: TObject;

  HFViewer: THtmlViewer;

  NumPage: Integer;

  LastPage: Boolean;

  var XL: Integer;

  var XR: Integer;

  var StopPrinting: Boolean

) of object;