十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
做不到的吧,VB还要检测文档程序,安全软件都通不过的,打印时本来就是可以选择打印机的,要开发这样的软件费用,还不如再配一台电脑了
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:国际域名空间、雅安服务器托管、营销软件、网站建设、椒江网站维护、网站推广。
可以将打印机默认打印设置改为黑白打印,如果打印对象是RGB配色,打印机驱动转换为CMYK颜色时,黑色都是由彩色墨水组成的
2.可以试一下图片从一个标准灰度图片格式化而来,这样图片自身只有黑白色,也许可以
可以把数据导出到EXCEL,然后使用EXCEL进一步处理后使用。
也可以做成vb报表(VB自带有)。
先设置报表格式,打印时向报表传递数据就可以了。
PrintDocument1.Print()
使用PrintDocument进行打印“Brush, 50, 80”50左边距离,80上面距离
Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim mypen As Pen = New Pen(Color.Blue, 2)
e.Graphics.DrawString("取号单", New Font("Microsoft Sans Serif", 18, FontStyle.Bold), New Pen(Color.Black, 1).Brush, 30, 30)
e.Graphics.DrawString("XXXXXX", New Font("Microsoft Sans Serif", 24, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 50, 80)
e.Graphics.DrawString("您的号码是:", New Font("Microsoft Sans Serif", 16, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 30, 135)
e.Graphics.DrawString("打印时间:" Now(), New Font("Microsoft Sans Serif", 10, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 80, 330)
End Sub