If data = 'D' Then
dw_main.DataObject = 'd_fin_glc340_02_1'
dw_main.Modify("DataWindow.Print.Preview=Yes")
dw_main.setTransObject(sqlca)
ElseIf data = 'S' Then
dw_main.DataObject = 'd_fin_glc340_02'
dw_main.Modify("DataWindow.Print.Preview=Yes")
// dw_main.Modify("DataWindow.Print.Paper.Size='9' ") //'<9 - A4 210x297mm>'
// dw_main.Modify("DataWindow.Print.Orientation= '2'") //<2 - Portrait>
dw_main.setTransObject(sqlca)
End If
dw_main.Modify("DataWindow.Print.PreView.Zoom=90")
dw_main.Modify("DataWindow.Zoom=107")
