Question

vb.net2010中，如何实现单据打印，请各位高手提供一些源码和一些教程，万分感谢！

我设一个收费系统，在收费窗口中要收据打印功能，请大家帮我一把，先谢了

Answer 1

vb 里有printer对象，打印很简单。
vb.net 升级为
Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 .Printer
这个没用过,你研究下

追问

有没有一些源码啊，

追答

太长了，截取了头尾，中间的省略不影响你看。
Private Function f_PrintScheme(ByVal sWaitingNo As String) As Boolean
‘变量定义略，超字数了。
'1 获取用户的设置 略超字数了
’下面是打印相关的代码。
'2.开始打印
on error goto mornwoo
With Printer
'1. 设置字体，并打印标题
With .Font
.Name = "隶书"
.Size = start.myFontSize.Size_Title
.Bold = True
.Italic = False
.Underline = False
.Strikethrough = False
End With
tmpX = Printer.Width / 2 - Printer.TextWidth( "滨海区服务中心") / 2
tmpY = 0
.CurrentY = tmpY
.CurrentX = tmpX
Printer.Print "滨海区服务中心" '居中打印标题
’2 重复下面三句来实现打印一行新数据，
.CurrentY = x坐标
.CurrentX = y坐标
Printer.Print "打印内容"
...
'最后结束打印
.EndDoc '结束打印。
End With
f_PrintScheme = True
Exit Function

mornwoo:
Printer.KillDoc '出错了，删除打印文档。
End Function

Answer 2

复杂的打印可进行讨论，简单的就算了。