anchor.diff:    public
       constructor Create(AOwner: TComponent; AImprime: T_Report); reintroduce;
       destructor Destroy; override;
  +    property PreviewMargin: integer read FPreviewMargin write SetPreviewMargin;
     end;
   
   var
  
positive.code:     end;
  end;
  
  procedure TF_Visu.E_NumPageKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: Boolean);
  var
    CptSect, CptPage, CptPageSect: integer;
  
negative.code:     L_NumPageSect: TfpgLabel;
      L_FromPageSect: TfpgLabel;
      L_NbrPageSect: TfpgLabel;
      FPreviewMargin: integer;
      procedure FormShow(Sender: TObject);
      procedure Bt_CloseClick(Sender: TObject);
      procedure Bt_PrintClick(Sender: TObject);
  