- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口无法打印黑底白字 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187646)
-- 发布时间：2023/8/1 15:03:00
-- 窗口无法打印黑底白字
此主题相关图片如下：snipaste_2023-08-01_15-00-57.bmp
以下是窗口的打印代码,预览时没有黑底白字,控件的Printable属性已设置为true
e.Form.Page.Width = 50 \'纸张宽度为100毫米
e.Form.Page.Height = 120 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 0 \'设置左边距
e.Form.Page.RightMargin = 0 \'设置右边距
e.Form.Page.TopMargin = 0 \'设置上边距
e.Form.Page.BottomMargin = 0 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Width = 50 \'纸张宽度为100毫米
doc.PageSetting.Height = 120 \'纸张高度为120毫米
doc.AutoRotate = False
此主题相关图片如下：snipaste_2023-08-01_15-00-48.bmp
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = e.form.controls("NumericComboBox1").value \'设置份数\'
doc.Preview()
-- 发布时间：2023/8/1 15:12:00
--
不支持，窗口打印不会考虑控件背景色的。
换个思路，放个图片框控件在M控件底下，图片框放一张纯黑图片