Page History
...
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