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