Source position: HTMLUn2.pas line 526
type TPagePrinted = procedure(
Sender: TObject;
Canvas: TCanvas;
NumPage: Integer;
W: Integer;
H: Integer;
var StopPrinting: Boolean
) of object;