主题：关于打印数据

对表格进行筛选 http://www.foxtable.com/webhelp/scr/1058.htm

 

对表格显示列进行操作 http://www.foxtable.com/webhelp/scr/1775.htm

 

 

你通过何种形式打印数据？截图具体说明你的问题。

贴出你的打印代码。

代码这样写

 

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim t As Table = e.form.controls("Table1").Table
Dim str As String = t.getColVisibleWidth
If lieming.value > "" Then
    For Each c As Col In t.Cols
        c.visible = False
    Next
    For Each s As String In lieming.value.split(",")
        t.cols(s).visible = True
    Next
End If
t.Print(True, False)
t.SetColVisibleWidth(str)
'e.Form.baseForm.hide
'e.Form.Close

8楼代码肯定没问题。如果有问题，做个小例子发上来看看。

 

调整列宽不管用？简单做个例子发出来看看。

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim t As Table = e.form.controls("Table1").Table
Dim str As String = t.getColVisibleWidth
If lieming.value > "" Then
    For Each c As Col In t.Cols
        c.visible = False
    Next
    For Each s As String In lieming.value.split(",")
        t.cols(s).visible = True
    Next
End If

e.Form.visible = false '隐藏
t.Print(True, False)
t.SetColVisibleWidth(str)

e.Form.visible = true '显示

'e.Form.Close

e.form.controls("Table1").Table.Filter = forms("流量卡历史绑定记录查询窗体").Controls("Table2").table.Filter

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
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
Else
    msgbox("不能所有列都不选")
    Return
End If
e.Form.visible = False '隐藏
Dim doc As PrintDoc = e.Form.GernatePrintDoc(e.Form.Controls("tiaozhengliekuanduGroupBox"))
doc.Preview
t.SetColVisibleWidth(str)
e.Form.visible = True '显示