Power Builder - Reglas en Reporte

Hola amigos PB's bueno haber si me ayudan tengo una funcion de menu que utilizo para llamar a los eventos de mi ventana de w_reporte(que no hereda de ninguna otra ventana)

ue_PaginaPrimera (me llama correco)
ue_PaginaAnterior (me llama correco)
ue_PaginaSiguiente (me llama correco)
ue_PaginaUltima (me llama correco)
ue_ZoomIncrementar (error no funciona)
uo_ZomDisminuir (error no funciona)
uo_Reglas (error no funciona)

Esta es la funcion:

window lw_sheet

lw_sheet = ParentWindow.GetActiveSheet()
If IsValid(lw_sheet) Then
lw_sheet.TriggerEvent(asEvento)
End If

// asEvento es un argumento de tipo string

Sring ls_reglas

ls_reglas = dw_datarepo.DataWindow.Print.Preview.Rulers

If ls_reglas='Yes' Then

dw_datos.Object.DataWindow.Print.Preview.Rulers = 'No'

Else
dw_datos.Object.DataWindow.Print.Preview.Rulers = 'Yes'

End If

en las tres ultimos eventos de la ventana w_reporte en tiempo de ejecucion no funciona...

ue_ZoomIncrementar
uo_ZomDisminuir
uo_Reglas

Este es el codigo de los eventos:

//ue_zoomdisminuir

Integer li_factor

li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)

If li_factor > 40 Then
li_factor = li_factor -20
ElseIf li_factor < 200 Then
li_factor = 20
End If
dw_datarepo.Object.DataWindow.Print.Preview.Zoom = String(li_factor)

--------------------------------------------------------------------------------------------------------------------

//ue_zoomincrementar

Integer li_factor

li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)

If li_factor <= 180 Then
li_factor = li_factor +20
ElseIf li_factor < 200 Then
li_factor = 200
End If

dw_datarepo.Object.Datawindow.Print.Preview.Zoom = String(li_factor)

--------------------------------------------------------------------------------------------------------------------

//uo_reglas

String ls_reglas

ls_reglas = dw_datos.Object.DataWindow.Print.Preview.Rulers

If ls_reglas='Yes' Then
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'No'
Else
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'Yes'
End If

Y las llamo de la siguiente manera en los item del menu

Reglas

mf_invocar_evento("ue_reglas")

Incrementar Zoom

mf_invocar_evento("ue_zoomincrementar")

Diminuir Zoom

mf_invocar_evento("ue_zoomdisminuir")

Ahora que esta mal para q no me imcremente ni disminuya el zoom y tampoco me muestre la regla para el reporte de la w_reporte. Tengo que realizar alguna propiedad en el datawindow reporte.. bueno espero q me ayuden

Gracias por su tiempo...
Saludos de Lima - Peru

Primero debes hacer un Preview al DW:

dw_datarepo.Object.DataWindow.Print.Preview = 'Yes'