做不到的吧，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
