锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net窗体直接打印 vbnet print

IT技术窗体

怎样用热敏打印机把vb.net窗体内文本框内容打印出来用PrintForm控件 ， 在Visual Basic PowerPacks项目列表中vb2008 SP1以后版本就有了，下面是代码
Imports System.Drawing.Printing
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'先设置打印页面的页边距
With Me.PrintForm1
Dim myMargins As New Margins'页边距设置信息是存放在这个Margins类型的对象中的
With myMargins'分别设置上下左右边距,
.Left = 12
.Right = 12
.Top = 12
.Bottom = 12
End With
.PrinterSettings.DefaultPageSettings.Margins = myMargins'把myMargins对象赋给PrintForm1的设置属性
End With
Me.Button1.Visible = False'这个是在打印的时候隐藏打印按钮
Me.PrintForm1.Form = Me'设置要打印的窗体
Me.PrintForm1.Print()'调用打印窗体方法
Me.Button1.Visible = True'再把隐藏的打印按钮显示出来
End Sub
VB怎么打印窗体哦可以调用窗体的PrintForm方法用打印机打印整个窗体，比如
[窗体名字.]PrintForm
如果省略窗体名字表示打印当前窗体 。
需要注意的是，用PrintForm方法时必须先显示窗体 。打印的内容是整个窗体图像，包括菜单栏，标题栏等 。另外，如果窗体包括图形，必须将窗体的AutoRedraw属性设为True时才可以 。
VB.NET怎么实现打印功能啊 呜呜（利用 printdocument控件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim stringFont As New Font("Arial", 16)
Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim strFormat As New StringFormat
Dim s As String
s = "print word"'打印的内容
e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)
End Sub
VB上如何打印窗体指定位置的内容？VB可以用CurrentX、CurrentY 属性实现定位打印 。用ScaleMode 属性确定打印机对象坐标的度量单位 。
CurrentX、CurrentY 属性，返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直
(CurrentY) 坐标 。
ScaleMode 属性 ， 当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位 。
具体实现代码：
Option Explicit
Dim X As Long
Dim y As Long
Dim fnt As Variant
Dim txt As String
Dim dy As Variant
Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)
Printer.CurrentX = X
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function
Private Sub Command1_Click()
Printer.ScaleMode = 6 '以mm定位
Printer.CurrentX = 10
Printer.CurrentY = 20
fnt = 12
txt = "YD(0)"
dy = prnt(X, y, fnt, txt)
Printer.EndDoc
End Sub
vb.net 怎么实现发票打印窗体 ， 按窗体上的格式打印出来，用的是access数据库，请高手帮忙！选择开始菜单中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令，打开【SQL Server Management Studio】窗口，并使用Windows或 SQL Server身份验证建立连接 。
在【对象资源管理器】窗口中展开服务器，然后选择【数据库】节点
右键单击【数据库】节点 ， 从弹出来的快捷菜单中选择【新建数据库】命令 。
执行上述操作后，会弹出【新建数据库】对话框 。在对话框、左侧有3个选项，分别是【常规】、【选项】和【文件组】 。完成这三个选项中的设置会后，就完成了数据库的创建工作，
在【数据库名称】文本框中输入要新建数据库的名称 。例如，这里以“新建的数据库” 。
在【所有者】文本框中输入新建数据库的所有者 ， 如sa 。根据数据库的使用情况，选择启用或者禁用【使用全文索引】复选框 。
在【数据库文件】列表中包括两行，一行是数据库文件，而另一行是日记文件 。通过单击下面的【添加】、【删除】按钮添加或删除数据库文件 。
切换到【选项页】、在这里可以设置数据库的排序规则、恢复模式、兼容级别和其他属性 。
切换到【文件组】页，在这里可以添加或删除文件组 。
完成以上操作后，单击【确定】按钮关闭【新建数据库】对话框 。至此“新建的数据”数据库创建成功 。新建的数据库可以再【对象资源管理器】窗口看到 。
【vb.net窗体直接打印 vbnet print】关于vb.net窗体直接打印和vbnet print的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何将文件上传至自己的服务器？ 怎么往自己服务器传东西吗

    下一篇：mysql如何增加一列数据 mysql怎么添加单列数据