vb.net打印设置打印预览和预览控制器的实例

vb.net打印设置打印预览和预览控制器的实例VB.Net打印设置打印预览和预览控制器的实例效果图1：效果图2：提示：调试环境为vs2005+ windows2003/windows2008/xp/vista代码如下：PublicClassPrintForm DimpagesetAsPrinting.PageSettings=NewPrinting.PageSettings() PrivateSubButton1_Click(ByValsenderAsSystem.Object,By...

VB.Net打印设置打印预览和预览控制器的实例效果图1：效果图2：提示：调试环境为vs2005+ windows2003/windows2008/xp/vista代码如下：PublicClassPrintForm DimpagesetAsPrinting.PageSettings=NewPrinting.PageSettings() PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click PageSetupDialog1.Document=PrintDocument1''设置Document属性=文档对象或者与PageSettings类关联就可以使用该控件 PageSetupDialog1.AllowMargins=True PageSetupDialog1.PageSettings=PrintDocument1.DefaultPageSettings DimreAsDialogResult=PageSetupDialog1.ShowDialog() Ifre=Windows.Forms.DialogResult.OKThen pageset=PageSetupDialog1.PageSettings EndIf EndSub PrivateSubPrintDocument1_PrintPage(ByValsenderAsSystem.Object,ByValeAsSystem.Drawing.Printing.PrintPageEventArgs) DimmypenAsPen=NewPen(Color.Blue,2) PrintDocument1.DefaultPageSettings=pageset e.Graphics.DrawString(RichTextBox1.Text,NewFont("黑体",15),mypen.Brush,10,10) EndSub PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click PrintDialog1.Document=PrintDocument1 PrintDialog1.PrinterSettings.Copies=5''打印的份数 PrintDialog1.PrinterSettings.FromPage=1''第一页的页码 PrintDialog1.PrinterSettings.ToPage=5''最后一页页码 DimreAsDialogResult=PrintDialog1.ShowDialog() Ifre=Windows.Forms.DialogResult.OKThen AddHandlerPrintDocument1.PrintPage,AddressOfMe.PrintDocument1_PrintPage PrintDocument1.Print() EndIf EndSub '更多.net源码和教程，来自[乐博网www.lob.cn] PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click PrintPreviewDialog1.Document=PrintDocument1 AddHandlerPrintDocument1.PrintPage,AddressOfMe.PrintDocument1_PrintPage PrintPreviewDialog1.PrintPreviewControl.Zoom=1.0 PrintPreviewDialog1.WindowState=FormWindowState.Normal PrintPreviewDialog1.ShowDialog() EndSub PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click DimPrintPreviewControl1AsPrintPreviewControl=NewPrintPreviewControl PrintPreviewControl1.Name="PrintPreviewControl1" PrintPreviewControl1.Dock=DockStyle.Fill PrintPreviewControl1.Document=PrintDocument1 PrintPreviewControl1.UseAntiAlias=True AddHandlerPrintDocument1.PrintPage,AddressOfMe.PrintDocument1_PrintPage Form1.Controls.Add(PrintPreviewControl1) PrintPreviewControl1.Show() Form1.Show() EndSubEndClass

                    本文档为【vb.net打印设置打印预览和预览控制器的实例】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

沉沉的爱

暂无简介~

格式：doc

大小：254KB

软件：Word

页数：

分类：工学

上传时间：2019-11-24

浏览量：

热点搜索

[夏热冬冷地区加油站站房节能设计策略] 夏热冬冷地区居住建筑节能设计标准继电保护装置定检及技术监督要点主材订购单模板鄠邑区第四中学家长学校组织机构及工作职责各种措施费定义-广联达(1) 技术规格书范文完整篇《剑桥少儿英语》Unit４_Free_Time小学五年级教案_[教案] 机构编制调研课题关于闵行区实验小学开设游泳校本课程的申请辽宁省森林及林木采伐若干规定青岛版小学四年级下册数学教案成都古建筑(英文介绍) 丹尼斯选址分析民用建筑电气设计规范 [夏热冬冷地区加油站站房节能设计策略] 夏热冬冷地区居住建筑节能设计标准继电保护装置定检及技术监督要点主材订购单模板鄠邑区第四中学家长学校组织机构及工作职责各种措施费定义-广联达(1) 技术规格书范文完整篇《剑桥少儿英语》Unit４_Free_Time小学五年级教案_[教案] 机构编制调研课题关于闵行区实验小学开设游泳校本课程的申请辽宁省森林及林木采伐若干规定青岛版小学四年级下册数学教案成都古建筑(英文介绍) 丹尼斯选址分析民用建筑电气设计规范