anchor.diff:      function MakeMetaFile(YTop, FormatWidth, Width, Height: Integer): TMetaFile;
       function MakePagedMetaFiles(Width, Height: Integer): TList;
   {$endif}
  -    function NumPrinterPages(var WidthRatio: Double): Integer; overload;
  +    function NumPrinterPages(out WidthRatio: Double): Integer; overload;
       function NumPrinterPages: Integer; overload;
       function PositionTo(Dest: string): Boolean;
       function PrintPreview(MFPrinter: TMetaFilePrinter; NoOutput: Boolean = False): Integer; virtual;
  
positive.code:     property OnPageEvent: TPageEvent read FOnPageEvent write FOnPageEvent;
      property Palette: HPalette read GetOurPalette write SetOurPalette;
      property Position: Integer read GetPosition write SetPosition;
      property Processing: Boolean index vsProcessing read GetViewerStateBit;
      property SectionList: TSectionList read FSectionList;
      property SelLength: Integer read GetSelLength write SetSelLength;
      property SelStart: Integer read FCaretPos write SetSelStart;
  
negative.code:   Result := NumPrinterPages(Dummy);
  end;
  
  function THtmlViewer.NumPrinterPages(out WidthRatio: Double): Integer;
  var
    MFPrinter: TMetaFilePrinter;
  begin
  