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