vb.net打印窗体内容 vb6打印窗体好的方法

vb.net 怎么实现发票打印窗体，按窗体上的格式打印出来，用的是access数据库，请高手帮忙！

选择开始菜单中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令，打开【SQL Server Management Studio】窗口，并使用Windows或 SQL Server身份验证建立连接。

成都创新互联拥有十多年成都网站建设工作经验,为各大企业提供成都做网站、网站设计服务，对于网页设计、PC网站建设（电脑版网站建设）、成都APP应用开发、wap网站建设（手机版网站建设）、程序开发、网站优化（SEO优化）、微网站、空间域名等，凭借多年来在互联网的打拼，我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验，集策划、开发、设计、营销、管理等网站化运作于一体，具备承接各种规模类型的网站建设项目的能力。

在【对象资源管理器】窗口中展开服务器，然后选择【数据库】节点

右键单击【数据库】节点，从弹出来的快捷菜单中选择【新建数据库】命令。

执行上述操作后，会弹出【新建数据库】对话框。在对话框、左侧有3个选项，分别是【常规】、【选项】和【文件组】。完成这三个选项中的设置会后，就完成了数据库的创建工作，

在【数据库名称】文本框中输入要新建数据库的名称。例如，这里以“新建的数据库”。

在【所有者】文本框中输入新建数据库的所有者，如sa。根据数据库的使用情况，选择启用或者禁用【使用全文索引】复选框。

在【数据库文件】列表中包括两行，一行是数据库文件，而另一行是日记文件。通过单击下面的【添加】、【删除】按钮添加或删除数据库文件。

切换到【选项页】、在这里可以设置数据库的排序规则、恢复模式、兼容级别和其他属性。

切换到【文件组】页，在这里可以添加或删除文件组。

完成以上操作后，单击【确定】按钮关闭【新建数据库】对话框。至此“新建的数据”数据库创建成功。新建的数据库可以再【对象资源管理器】窗口看到。

怎样用热敏打印机把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.net 里面，如何打印当前窗口

有截屏键Ctrl + Alt + prtScr/sysRq(prtScr/sysRq在F12旁边)，再打开画图、WORD等粘贴就行了

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