以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  打印窗口表格  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196487)

--  作者：yangwenghd --  发布时间：2025/5/5 9:35:00 --  打印窗口表格 老师 可以帮忙看看这个吗？ 我想打印采购管理窗口_Table1这个表里面显示的内容，感谢 感谢  Dim grp As Table = Tables("采购管理窗口_Table1") Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp) doc.PageSetting.Landscape = True \'横向打印 Dim ps As New System.Drawing.Printing.PrinterSettings ps.Copies = e.Form.Controls("NumericComboBox5").Text \'Doc.PrinterName = "HP LaserJet 6L" \'Tables("产品编辑窗口_Table1").Filter = "属性_型号 Like \'%" & e.Form.Controls("ComboBox2").Text & "%\'" \'  筛选出行\\ ps.PrinterName = e.Form.Controls("ComboBox1").Text doc.Print(ps) \'打印

--  作者：有点蓝 --  发布时间：2025/5/5 19:56:00 --   Dim doc As PrintDoc = e.Form.GernatePrintDoc() 把除了采购管理窗口_Table1之外的其它控件设置为不可打印