【VB开源代码栏目提醒】:网学会员VB开源代码为您提供用VB编写打印程序 - 职业资格参考,解决您在用VB编写打印程序 - 职业资格学习中工作中的难题,参考学习。
397《商场现代化》2008年2月(上旬刊)总第529期Visual Basic(VB)给用户提供了可视化编程环境,因其简单易学、功能强大而得到了广泛的应用,尤其是在ERP软件开发中利用率较高。
VB提供了多种实现打印的方法,下面逐一进行说明。
一、PrintForm方法它只需要一行
代码,即可打印当前窗口的可视区域。
首先将要打印的内容在屏幕上显示出来,然后执行窗体的PrintForm,窗体则自动将要打印的内容发送到Printer对象上,其语法格式如下:〔窗体.〕PrintForm。
如果窗体中包括图形,那么打印前应先置窗体的AutoRedraw属性为真。
此方法优点是简单、易用并且功能强大,但也存在内存消耗大、打印粗糙、速度慢等缺陷。
二、Printer对象VB中Printer对象是一个独立于打印机设备的封装,它可以代表不同的打印机,初始时,Printer对象为系统缺省的打印机,也可以使用下列语句:Set Printer=Printers(2) (其中2代表Printers集中的第二个打印机)对打印机进行指定。
Printer对象具备例如:ColorMode、Copies、Duplex、Printquality等控制打印机特征的属性,提供了Newpage、EndDoc、KillDoc等控制打印过程的方法,以及大多数由窗体和图片框控件提供的图形属性和方法,它还拥有Font的所有属性,通过控制Printer对象的上述属性和方法即可完成打印操作。
利用Printer对象开发的打印程序主要靠其提供的NewPage(打印新的一页,CurrentX、CurrentY置为新页的左上角,可完成多页功能。
)、EndDoc(将打印任务加入打印机队列)、KillDoc(取消打印任务)控制打印过程的。
一般情况下,打印程序完成多页打印时会多次执行NewPage,结束时执行一次EndDoc将打印任务加入打印机队列。
如果希望显示空白页,则可在新的一页上只使用Printer.Print ”” 打印空字符即可。
如:Printer.CurrentX = 300Printer.CurrentY = 400Printer.Font = ”宋体”Printer.FontSize = 12Printer.Print ”QHDEDU”Printer.Print ””Printer.EndDoc为了通过Printer对象实现文本和图形的打印,获得最好的打印质量,还需要对VB控制打印机的多种属性有更深入的理解,例如打印机的坐标体系向屏幕坐标体系的转换、打印机字体尺寸的确定等。
VB为用户提供了Windows公用标准对话框CommonDialog控件:【打开】、【文件另存为】、【颜色】、【字体】、【打印】。
利用公用标准对话框【打印】开发VB的打印
程序,将大大缩短程序的开发周期。
应用程序中要使用公用对话框,必须首先在工具箱中添加公用对话框控件。
该动作通过激活【部件】对话框,选中Microsoft Common Dialog Control6.0, 单击【确定】即可。
然后再将公用控件添加到窗体上并设置相应属性,该控件具有的属性有Color、Font、Print、Help等。
这样就可利用CommonDialog控件来控制Printer的各种属性。
如:With dlgCommonDialog ’打印机公用对话框 .DialogTitle = ”打印” .CancelError = True .Flags = 1 .ShowFont ’在屏幕上显示【字体】公用对话框 Printer.FontSize = dlgCommonDialog.FontSize ’将打印机公用对话框设置的字体大小传递给打印机 .ShowPrinter ’在屏幕上显示【打印】公用对话框 If Err <> MSComDlg.cdlCancel Then Printer.Print ”打印程序示例” Printer.EndDoc ’将该任务加入打印机任务队列 Printer.KillDoc ’取消当前的打印任务 End If End With三、并口热敏打印机在商场款台中应用较广。
通过以下语句可以控制并口热敏打印机进行打印Open ”LPT1:” For Binary Access Write As #1Put #1, , Chr¥(27) & Chr¥(64) ’初始化打印机Put #1, , Chr¥(27) & Chr¥(56) & Chr¥(0) ’设置汉字模式Put #1, , ”QHDEDU” & Chr¥(10) ’打印输出Close #1 ’ 关闭打印端口四、VB自带的报表功能通过在工程中添加DataReport来生成并设置报表文件,此方法用VB编写打印程序李洪泊 赵学作 许 娜 河北科技师范学院〔摘 要〕 本文在总结商场ERP
软件开发经验的基础上,详细说明了VB实现打印的几种方法。
阐述了PrintForm窗体打印、Printer对象打印、对并口热敏打印机的控制、VB自带的DataReport报表方式,输出到EXCEL或WORD文件通过VBA进行打印等多种打印方式。
〔关键词〕 PrintForm Printer 并口热敏打印机 DataReport VBA学术研讨398《商场现代化》2008年2月(上旬刊)总第529期进入新世纪,伴随全球化和知识经济的到来,各国竞争愈加激烈,国家整体创新能力日益成为决定国民经济增长质量和参与国际竞争能力大小的重要因素。
目前,各国都把制定并实施有效的创新政策作为
经济增长和技术进步的重要内容。
因而,国家创新系统理论研究从上世纪80年代末建立以来,就在各国得到了广泛发展。
一、国家创新系统理论由来1.国家创新系统的概念国家创新系统的英文表述为National Innovation System(简称NIS)。
目前在国际上,NIS还没有一个确切的概念,各国学者根据自己的理解,以不同形式给出了NIS的定义。
这些研究的表述方式虽然不同,但在强调不同部门和机构之间的相互作用这一点上是一致的。
从本质上讲,NIS是将企业、科研机构、大学和政府各部门之间的创新行为融合成为一个有机整体,并试图通过相互协作产生最大的创新绩效。
广义的创新系统除了国家创新系统以外,还包括区域创新系统和国际创新系统,也有学者认为国家创新系统和国际创新系统属于区域创新系统的分支研究,作者虽不同意这种观点,但也承认他们之间存在一定的联系。
2.国家创新系统的理论由来英国著名学者佛里曼(C.Freeman,1987)在考察日本技术创新过程中最早提出了国家创新系统,纳尔逊(R.Nelson,1993年)和伦德瓦尔(B-A Lundavall,1993年)进一步发展了国家创新
系统的概念。
其后,哈佛大学的波特尔(Porter,1994)提出了国家竞争力钻石理论,强调企业、大学、科研机构和政府在国家创新系统中的核心作用。
国际经合组织于上世纪90年代中期对世界上二十多个国家的NIS进行了系统研究,发现各国NIS的形式、特点和作用都不尽相同,特别是发展中国家和发达国家之间有很大差异,部分发展中国家因NIS的缺陷制约了该国经济的快速发展。
从研究方向和方法上,国家创新系统研究总体可以分为两大类,一类是以佛里曼和纳尔逊为代表的国家创新系统的制度研究,强调了制度在国家创新系统中的重要作用;另一类是以伦德瓦尔为首的国家创新系统的互动研究,该方法强调系统中各行为主体的制度安排和相互作用。
二、国内研究概况国内对国家创新系统的理论研究时间不长,开始于上世纪90年代初期,到目前不足十年,研究内容较为宽泛,研究方法不尽相同,尚未形成一套完整的理论体系,但从研究重点上大体可以分为三个阶段。
中国国家创新系统理论与实证研究综述张荣耀 武汉科技大学中南分校商学院〔摘 要〕 随着国家创新系统理论与实证研究的全面展开,结合中国国家创新系统的建设,国内学者对中国国家创新系统的研究,逐渐由宏观研究向微观研究,由偏重制度研究向重视互动研究方向发展。
文章介绍并评述了中国国家创新系统的研究进程。
〔关键词〕 中国 国家创新系统 综述 研究进展适用于对数据库的报表。
报表中分为五部分:报表标头(Section4)、页标头(Section2)、细节(Section1)、页注脚(Section3)、报表注脚(Section5)。
可以其中分别添加报表控件,然后通过属性指定内容,或通过语句控制打印内容。
Set DataReport1.DataSource = Adodc1.Recordset ‘指定数据源DataReport1.Sections(”Section1”).Controls(”Text1”).DataField= ”RTIME” ‘指定细节中文本框的绑定字段DataReport1.Sections(”Section4”).Controls(”Label1”).Caption =”报表标头” ‘指定内容DataReport1.Show vbModal五、利用EXCEL进行打印打印前需要把要打印的数据输出到EXCEL表格中,然后通过VBA语法来进行打印操作。
Set xlApp = CreateObject(”Excel.Application”) Set xlBook = xlApp.Workbooks.Add Set xlsheet = xlBook.Worksheets(1) xlsheet.Cells(1, 1) = ”QHDEDU” xlApp.Visible = True xlsheet.PrintOut Set xlsheet = Nothing六、利用WORD进行打印打印前需要把要打印的数据输出到WORD
文档中,然后通过VBA语法来进行打印操作。
Set wordapp = CreateObject(”word.application”) Set xlBook = wordapp.documents.Add wordapp.Visible = True Set document1 = wordapp.documents(1) document1.paragraphs(1).range = ”ABCDEFGHJ” document1.PrintOut Set wordapp = Nothing当然还有很多其他打印方式,如第三方控件进行打印条形码、照片打印等,本文仅介绍了VB中
常用的打印方式,读者可以编程时根据实际进行综合利用。
参考文献:〔1〕超维度
工作室:Visual Basic .NET Win32 API 〔M〕.北京:中国铁道出版社,2003〔2〕 (美)荷兹纳(Steven Holzner):Visual Basic 6技术内幕〔M〕.北京:机械工业出版社,1999〔3〕林 永 张乐强:Visual Basic 6.0用户编程手册〔M〕.北京:人民邮电出版社,2002〔4〕崔彦锋 许小荣:VB
网络与远程控制编程实例教程〔M〕.北京:北京希望电子出版社,2002〔5〕王 川 阮兴平 于平剑 何建波:中文版Office2000 VBA一册通〔M〕.北京: 人民邮电出版社,2000学术研讨