PB中打印当前页

当在一个DW中存在多页时，为了打印当前页，可以考虑使用如下代码:

If cbx_curr_page.Checked Then
    dw_cf.Modify("DataWindow.Print.Page.Range='" + dw_cf.Describe("Evaluate('page()'," + dw_cf.Object.Datawindow.FirstRowOnPage + ")") + "' ")
Else
    dw_cf.Modify("DataWindow.Print.Page.Range='' ")
End If

dw_cf.Print( )


另：
如下代码 可以实现滚动纵坐标滑块，动态指定下拉列表:
DW 事件名称:scrollvertical

Integer li_firstrow
li_firstrow = Integer(Object.Datawindow.FirstRowOnPage)

If li_firstrow > 0 Then
    ddlb_per_type.Text = ddlb_per_type.Text(li_firstrow)
End If


另：
如下代码 可以实现选择下拉列表时，动态滚动到 对应的页:
下拉列表事件:selectionchanged

Integer li_row

li_row = dw_cf.Find("rylb = '" + String(Index) + "'",1,dw_cf.RowCount())

If li_row <= 0 Then li_row = 1

dw_cf.ScrollToRow(1)
dw_cf.scrollpriorpage( )
dw_cf.ScrollNextPage( )
dw_cf.ScrollToRow(li_row)

dw_cf.SetFocus( )