dw_report.SetRedraw(False)
If FileExists(gs_inifile) Then
 ls_capitan = ProfileString(gs_inifile, "NOTION", "CAPITAN", "")
 If ls_capitan <> '' Then
  ls_mod_string = "t_capitan.Text = '" + String(ls_capitan) + "'"
  ls_mod_string = dw_report.Modify(ls_mod_string)	
 End If
End If
dw_report.AcceptText()
dw_report.SetRedraw(True)
dw_report.Retrieve(ll_notion)
OpenWithParm(w_rep_preview,This)
w_rep_preview.dw_preview.DataObject = dw_report.DataObject
ll_result = dw_report.RowsCopy(dw_report.GetRow(), dw_report.RowCount(), Primary!		, w_rep_preview.dw_preview,  1 , Primary!)
If ll_result =  1  Then
 w_rep_preview.dw_preview.Object.DataWindow.Print.Preview = 'Yes'
 w_rep_preview.dw_preview.Object.DataWindow.Print.Preview.Rulers = 'Yes'
Else
 Return
End If