正文
vb.net打印模板,vb 打印
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET程序如何实现表格填写和打印
一般情况下先用EXCEL做好一个样表文件，设定好打印区域和样式，需要填内容的时候，先程序复制一个样表文件，然后调用API打开表格填写内容并打印，如果想用API来实现调整模板和打印预览，可能比较困难，而且很抽象，个人觉得费时费力效果还不一定理想
相关问答
Q1: vb.net 打印功能
可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。
也可以做成vb报表(VB自带有)。
先设置报表格式，打印时向报表传递数据就可以了。
Q2: vb.net 传参调用BarTender模板实现动态打印
你用的版本太高了吧。 我用的7.75 你参考一下 先要打开bartend.exe Shell ("D:\Program Files\Seagull\BarTender\7.75\bartend.exe /af=E:\abc\abc.btw /p /x /?qdh=""" randqdh """") dll应该是不用调用的，调用dll需要用正版
Q3: 哪位大哥给我一个VB.NET打印的例子
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
