“
vb,Module Module1, Sub Main(), Console.WriteLine("Hello, World!"), Console.ReadKey(), End Sub,End Module,
“Imports System.Drawing.Printing Module Module1 Sub Main() ' 创建一个PrintDocument对象 Dim printDoc As New PrintDocument() ' 添加一个事件处理程序,以便在打印开始时执行一些操作 AddHandler printDoc.BeginPrint, AddressOf BeginPrintEventHandler ' 添加一个事件处理程序,以便在打印页面时执行一些操作 AddHandler printDoc.PrintPage, AddressOf PrintPageEventHandler ' 添加一个事件处理程序,以便在打印结束时执行一些操作 AddHandler printDoc.EndPrint, AddressOf EndPrintEventHandler ' 启动打印过程 printDoc.Print() ' 等待用户按下任意键退出程序 Console.ReadKey() End Sub ' 打印开始时的事件处理程序 Private Sub BeginPrintEventHandler(ByVal sender As Object, ByVal e As PrintEventArgs) Console.WriteLine("开始打印...") End Sub ' 打印页面时的事件处理程序 Private Sub PrintPageEventHandler(ByVal sender As Object, ByVal e As PrintPageEventArgs) ' 设置打印字体和大小 e.Graphics.DrawString("Hello, World!", New Font("Arial", 12), Brushes.Black, 100, 100) End Sub ' 打印结束时的事件处理程序 Private Sub EndPrintEventHandler(ByVal sender As Object, ByVal e As PrintEventArgs) Console.WriteLine("打印完成。") End Sub End Module
这个示例中,我们首先导入了System.Drawing.Printing命名空间,然后创建了一个PrintDocument对象,我们为PrintDocument对象的BeginPrint、PrintPage和EndPrint事件添加了事件处理程序,我们调用PrintDocument对象的Print方法来启动打印过程。
到此,以上就是小编对于vb打印源码的问题就介绍到这了,希望介绍的几点解答对大家有用,有任何问题和不懂的,欢迎各位朋友在评论区讨论,给我留言。
原创文章,作者:未希,如若转载,请注明出处:https://www.kdun.com/ask/1113627.html
本网站发布或转载的文章及图片均来自网络,其原创性以及文中表达的观点和判断不代表本网站。如有问题,请联系客服处理。
发表回复