6.66.1 VB Example
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