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