Page History
...
Private Sub cmdPrintAll_Click()
...
' set department to blank to print all departments
iRet = LceSetFieldValue(iSession,
...
"DEPTMENT",
...
Chr(0))
...
If iRet = LceTrue Then
iRet = LceSubmit(iSession,
...
"PSLSYS",
...
"EMPLIST",
...
"",
...
_
"DEPTMENT",
...
"",
...
"",
...
"",
...
"")
...
End If
End Sub