File: u_dw_report.sru
Size: 836
Date: Mon, 07 Apr 2008 21:31:39 +0200
$PBExportHeader$u_dw_report.sru
forward
global type u_dw_report from u_dw
end type
end forward

global type u_dw_report from u_dw
end type
global u_dw_report u_dw_report

forward prototypes
public subroutine of_printpreview (readonly boolean ab_print)
public subroutine of_zoom (readonly integer ai_zoom)
end prototypes

public subroutine of_printpreview (readonly boolean ab_print);n_svc_mgr lnv_svc
n_svc_iif lnv_if

lnv_svc.of_LoadSvc(lnv_if, CSvc.IIF)

Modify("Datawindow.Print.Preview='" + &
      STRING(lnv_if.of_iif(ab_print, "Yes", "No") ) + &
      "'")
end subroutine

public subroutine of_zoom (readonly integer ai_zoom);Modify("Datawindow.Print.Preview.Zoom=" + STRING(ai_zoom))
end subroutine

on u_dw_report.create
call super::create
end on

on u_dw_report.destroy
call super::destroy
end on