老师 可以帮忙看看这个吗？
我想打印采购管理窗口_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) '打印
加好友 
发短信
Post By：2025/5/5 9:35:00 [只看该作者]
