編寫(xiě)vb打印控制程序的幾點(diǎn)心得畢業(yè)論文(編輯修改稿)
2025-07-16 19:30 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ewPage （打印新的一頁(yè)，CurrentX、CurrentY置為新頁(yè)的左上角，可完成多頁(yè)功能。）、EndDoc （將打印任務(wù)加入打印機(jī)隊(duì)列）、KillDoc （取消打印任務(wù)）控制打印過(guò)程的。一般情況下，打印程序完成多頁(yè)打印時(shí)會(huì)多次執(zhí)行NewPage，結(jié)束時(shí)執(zhí)行一次EndDoc將打印任務(wù)加入打印機(jī)隊(duì)列。如果你在NewPage后，立即使用EndDoc，VB則不會(huì)打印額外的空白頁(yè)。如果希望顯示空白頁(yè)， “ “打印空字符即可。為了通過(guò)Printer對(duì)象實(shí)現(xiàn)文本和圖形的打印，獲得最好的打印質(zhì)量，還需要對(duì)VB控制打印機(jī)的多種屬性有更深入的理解，例如打印機(jī)的坐標(biāo)體系向屏幕坐標(biāo)體系的轉(zhuǎn)換、打印機(jī)字體尺寸的確定等。下面給出了打印程序的主框架：Private Sub mnuFilePrint_Click() On Error Resume Next If ActiveForm Is Nothing Then Exit Sub With dlgCommonDialog ‘打印機(jī)公用對(duì)話框 .DialogTitle = 打印 .CancelError = True .Flags = 1 = ‘將打印機(jī)公用對(duì)話框設(shè)置的字體大小傳遞給打印機(jī) .ShowPrinter ‘ 在屏幕上顯示【打印】公用對(duì)話框 If Err Then = False ‘初始化打印的字體為不透明 SetPrinterScale Myform ‘匹配打印機(jī)的縮放屬性與窗體的屬性 PrintAnywhere Printer ‘可放置用戶編寫(xiě)的打印對(duì)象參數(shù)化例程 ‘實(shí)現(xiàn)字符和圖形的顯示 ‘打印機(jī)坐標(biāo)初始化PrintAnywhere Printer ‘打印另一頁(yè)的內(nèi)容 ‘打印機(jī)坐標(biāo)初始化 ‘將該任務(wù)加入打印機(jī)任務(wù)隊(duì)列‘ 不打印空白頁(yè) ‘取消當(dāng)前的打印任務(wù) End If End With End Sub⑷ 參數(shù)化繪圖程序用VB開(kāi)發(fā)應(yīng)用程序時(shí)，如果使用參數(shù)化繪圖例程進(jìn)行屏幕顯示程序的
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1