Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
If sjdcxzb="POS机库存资料表" Then
Dim tbl As WinForm.Table = e.form.controls("Table1")
tbl.PrintRowNumber = False '不打印行号
Dim t As Table = tbl.Table
Dim str As String = t.getColVisibleWidth
If lieming.CheckedIndices.Count > 0 Then
For Each c As Col In t.Cols
c.Visible = False
Next
For Each idx As Integer In lieming.CheckedIndices
t.cols(lieming.Items(idx)).Visible = True
Next
End If
e.Form.visible = False '隐藏
t.Print(True, False)
t.SetColVisibleWidth(str)
e.Form.visible = True '显示
End If