可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。
上林ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
也可以做成vb报表(VB自带有)。
先设置报表格式，打印时向报表传递数据就可以了。
picture本身不是文本控件，文本是“画”上去的，换行需要用代码测量每个字在指定字体下的宽度，判断在当前picture的宽度之下，一行能容纳多少文字，剩下的文字就在下一行绘制。
1、vb6里可以用Printer对象的PaintPicture 方法实现打印picturebox里的图片。
2、vb6示例：
Private Sub Form_DblClick()
'实现打印图像到打印机
Printer.PaintPicture Picture1.Picture, 0, 0
Printer.EndDoc
End Sub
打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置
我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。
另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用VB.net。求教.
我帮你把最后一部分的语句顺序调换一下。你试一试
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
