主题：请高手帮忙实现图片中的数据打印

下载信息  [文件大小：496.0 KB  下载次数：2]

点击浏览该文件:报账单.table

参考帖子

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=81233&authorid=0&page=0&star=1

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=81264&authorid=0&page=0&star=1

去看上一条、下一条按钮的代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

1、筛选后，要执行代码，如

Tables("表A").RepeatFilter("第一列", 0)

2、超过3行的，你要怎样处理？

注释掉红色代码。

Dim cmb As winform.combobox=e.form.controls("combobox1")
'e.Form.Page.LeftMargin = Forms("小委托页面设置").Controls("TextBox1").value   '设置左边距
'e.Form.Page.RightMargin = Forms("小委托页面设置").Controls("TextBox2").value    '设置右边距
'e.Form.Page.TopMargin = Forms("小委托页面设置").Controls("TextBox3").value    '设置上边距
'e.Form.Page.BottomMargin = Forms("小委托页面设置").Controls("TextBox4").value    '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
If cmb.value<>"请选择打印机:" Then
    Doc.printername=cmb.value
End If
'Doc.PrinterName = "Jolimark FP-530KIII+"   可指定打印机
doc.Print()