189 8069 5689
有个PrintDocument控件,可以实现打印。。。
创新互联为客户提供专业的网站设计、网站制作、程序、域名、空间一条龙服务，提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、移动网站建设等网站方面业务。
MSDN原话：
使用 PrintDocument 组件
涉及 PrintDocument 组件的两种主要情况是：
简单的打印作业，如打印单个文本文件。在这种情况下，应将 PrintDocument 组件添加到 Windows 窗体，然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑。 该编程逻辑应以使用 Print 方法打印文档结束。
此方法向打印机发送一个 Graphics 对象，该对象包含在 PrintPageEventArgs 类的 Graphics 属性中。
有关如何使用 PrintDocument 组件打印文本文档的示例，请参见
如何：打印 Windows 窗体中的多页文本文件。
更为复杂的打印作业，如想要重新使用已编写的打印逻辑的情况。
在这种情况下，应从 PrintDocument 组件派生一个新组件，并重写
（请参见 Visual Basic 的 重写或 C# 的 重写） PrintPage 事件。
将 PrintDocument 组件添加到窗体后，它出现在 Windows 窗体设计器底部的栏中
可以将打印机默认打印设置改为黑白打印，如果打印对象是RGB配色，打印机驱动转换为CMYK颜色时，黑色都是由彩色墨水组成的
2.可以试一下图片从一个标准灰度图片格式化而来，这样图片自身只有黑白色，也许可以
可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。
也可以做成vb报表(VB自带有)。
先设置报表格式，打印时向报表传递数据就可以了。
PRINTER.PRINT 用这个，直接打印到默认打印机了，位置的确定是你根据控件的位置就可以确定了
我帮你把最后一部分的语句顺序调换一下。你试一试
sub button1_click() '---执行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1 '这样可以两次截图
CaptureScreen() '--执行前面自定义函数截图
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一个间隔
next
end sub
比如：
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)
e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)
e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)
也就是分次用不同坐标和不同的字体来打印各变量。画线用：
e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。
具体坐标数值自己用尺量出，再换算。