vb.net打印页设置 vb打印设置代码

vb.net 怎么实现发票打印窗体,按窗体上的格式打印出来 , 用的是access数据库,请高手帮忙!选择开始菜单中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令,打开【SQL Server Management Studio】窗口 , 并使用Windows或 SQL Server身份验证建立连接 。
在【对象资源管理器】窗口中展开服务器,然后选择【数据库】节点
右键单击【数据库】节点,从弹出来的快捷菜单中选择【新建数据库】命令 。
执行上述操作后 , 会弹出【新建数据库】对话框 。在对话框、左侧有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()'调用打印窗体方法
【vb.net打印页设置 vb打印设置代码】Me.Button1.Visible = True'再把隐藏的打印按钮显示出来
End Sub
高分求解vb.net 打印的问题报表打印应该也能实现,但是我觉得你这个用文本打印更简单,将数据输出到txt文件 , 结果用RichTextBox显示,但是需要简单的排版,调用打印机打印RichTextBox即可的
排版用tab()、space()、vbcrlf或PrintLine(1)换行 , 代码类似如下样式
PrintLine(1, TAB(60), "准考证")
PrintLine(1)
PrintLine(1, "姓名:"xingmingSpace(3) "准考证号:"cel(1)Space(3)cel(2)Space(3)cel(3))
但是TAB()排版比较规整
打印代码类似如下:
PrintDialog1.Document = PrintDocument1
PrintDocument1.DocumentName = "准考证"
PrintDialog1.AllowSomePages = False
PrintDialog1.ShowHelp = False
PrintDialog1.ShowNetwork = False
PrintDialog1.AllowSelection = False
PrintDialog1.AllowPrintToFile = False
MySReader = New StringReader(RichTextBox1.Text)
stringToPrint = MySReader.ReadToEnd()
PageSetupDialog1.Document = PrintDocument1
PageSetupDialog1.PageSettings.Margins.Bottom = 50
PageSetupDialog1.PageSettings.Margins.Top = 50
PageSetupDialog1.PageSettings.Margins.Left = 50
PageSetupDialog1.PageSettings.Margins.Right = 50
If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings'页面设置
If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If PrintDialog1.PrinterSettings.IsValid = True Then
PrintDocument1.Print()
MsgBox("打印完成!"vbCrLf"Print completed!", , "Print hint(打印提示)")
Else
MsgBox("打印失败!打印机不可用 。"vbCrLf"Print failed! The printer is not valid.", , "Print hint(打印提示)")
End If
Else
Exit Sub
End If
End If
VS2005如何用VB.NET代码实现打印功能有个PrintDocument控件,可以实现打印 。。。
MSDN原话:
使用 PrintDocument 组件
涉及 PrintDocument 组件的两种主要情况是:
简单的打印作业 , 如打印单个文本文件 。在这种情况下,应将 PrintDocument 组件添加到 Windows 窗体,然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑 。该编程逻辑应以使用 Print 方法打印文档结束 。
此方法向打印机发送一个 Graphics 对象 , 该对象包含在 PrintPageEventArgs 类的 Graphics 属性中 。
有关如何使用 PrintDocument 组件打印文本文档的示例,请参见
如何:打印 Windows 窗体中的多页文本文件 。
更为复杂的打印作业,如想要重新使用已编写的打印逻辑的情况 。
在这种情况下,应从 PrintDocument 组件派生一个新组件,并重写
(请参见 Visual Basic 的 重写或 C# 的 重写) PrintPage 事件 。
将 PrintDocument 组件添加到窗体后,它出现在 Windows 窗体设计器底部的栏中
VB.NET打印编程问题,打印机为激光打印机 。打印做得不多,以前做套打时发现,每台打印机定位都不一样,于是每台机子都加了个偏移设置
我的做法在白纸上打上一标尺,和一个上下边距为2CM的交叉点,然后用标尺量这2CM的偏移,设置完后,在这台打印机打印时,就给纸张加个偏移量,打印就正常了 。可能你的原因和我一样 。
另外也想问你一下 , 你这个条码是用什么打的 。早先,我用立象的条码打印机打不干胶,很简单,激光打没用过,可能下次我也要用条码打印 , 我也用VB.net 。求教.
vb.net 打印问题可以将打印机默认打印设置改为黑白打印,如果打印对象是RGB配色,打印机驱动转换为CMYK颜色时,黑色都是由彩色墨水组成的
2.可以试一下图片从一个标准灰度图片格式化而来 , 这样图片自身只有黑白色,也许可以
关于vb.net打印页设置和vb打印设置代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读