Private Sub cmdPrintDepartment_Click()
         ' ask the host to print a list of the department's 
         ' employees 
         ' set department to print 
         iRet = LceSetFieldValue(iSession, "DEPTMENT", DeptKey(cmbDepartment.ListIndex))
          If iRet = LceTrue Then
             iRet = LceLansaCall(iSession, "PSLSYS", "EMPLIST", "", "DEPTMENT")
         End If
     End Sub