VB中打印機(jī)選擇

1、(1)假設(shè)彳的COMMONDIALOG 控件叫CMDiag用如下代碼可以使你選擇的打印機(jī)成為默認(rèn)打印機(jī)"Printer-On Error Resume NextCMDiag.PrinterDefault = TrueCMDiag.CancelError = TrueCMDiag.ShowPrinterIf Err.Number <> 0 Then Exit Sub(2)VB 里面,原本改變預(yù)設(shè)打印機(jī)的方法是：(假設(shè)安裝有兩種打印機(jī)(驅(qū)動(dòng)程式)SetPrinter=Printers(O)'將預(yù)設(shè)打印機(jī)設(shè)定成第一種打印機(jī)SetPrinter=Printers(1)&#

2、39;將預(yù)設(shè)打印機(jī)設(shè)定成第二種打印機(jī)但實(shí)際上以上表達(dá)有時(shí)候不會(huì)成功(原因不詳),為了能夠成功地改變預(yù)設(shè)打印機(jī),以下是呼叫Windows API 的方法：(此一解決方案適用於Windows 95,98)1. API 的宣告：Const HWND_BROADCAST = &HFFFF&Const WM_WININICHANGE = &H1APrivateDeclareFunction GetPro Lib-kernel32- Alias"GetPro"(ByVallpAppName As String,ByVal lpKeyNameAs _String,

3、 ByVal lpDefault As String, ByVal lpReturnedString As String, _ByVal nSize AsLong) AsLongPrivateDeclareFunction WritePro Lib-kernel32- Alias"WritePro" (ByVallpszSection As String, ByVal lpszKeyName _As String, ByVal lpszString As String) As LongPrivate Declare Function SendMessage Lib -use

4、r32" Alias -SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long2. 程式范例：PrinterName ="您想設(shè)定的打印機(jī)名稱"Dim S As String, length As Long, hKey As LongS = String(80, Chr(O)length= GetPro("devices",PrinterName, "", S, Len

5、(S)& S)S =Left(S, length)Call WritePro("windows", "device", PrinterName &Call SendMessage(HWND_BROADCAST, WM_WININICHANGE,&H7FFF&, ByVal "windows")至於改變 NT 預(yù)設(shè)打印機(jī)的方法,那么是改變登錄資料庫(kù)(Registry)打印機(jī)的設(shè)定,在登錄資料庫(kù)中紀(jì)錄預(yù)設(shè)打印機(jī)的Value 是：HKEY_CURRENT_USERSoftwareMicrosoftWindow

6、sNTCurrentVersionWindows subkey 的 Device value(3) VB中獲取指定打印機(jī)的各種紙張類型及大小放入一個(gè)MSFlexGrid ,名稱為 fgdl ,列數(shù)為4'OptionExplicitPrivateConstDC_MAXEXTENT=5PrivateConstDC_MINEXTENT=4PrivateConstDC_PAPERNAMES16PrivateConstDC_PAPERS= 2PrivateConstDC_PAPERSIZE =3PrivateDeclareFunction DeviceCapabilitiesviceCapabi

7、litiesA"g, ByVal iIndexLib "winspool.drv" Alias "De(ByVal lpDeviceName As String, ByVal lpPort As Strin As Long, lpOutput As Any, lpDevMode As Any) As LongPrivate Type POINTSx As Long y As LongEnd TypePrivate Sub Form_Load()Dim i As LongWith fgdl.Clear.FormatString = "A紙張編號(hào)|

8、A紙張名稱|A紙張長(zhǎng)度|A紙張寬度" For i = 0 To .Cols -1.ColWidth(i) = 1700 Next i .AllowUserResizing = flexResizeColumns .Left = 0 .Width = Me.ScaleWidth End With GetPaperInfo End Sub Private Sub GetPaperInfo() Dim i As Long, retAs LongDim Length As Integer, Width As Integer Dim PaperNo() As Integer, PaperNam

9、e() As String, PaperSize() As POINTS ,支持最大打印紙：印0&)印0&)ret = DeviceCapabilities(打稱,"LPT1", DC_MAXEXTENT, ByVal 0&, ByVal Length = ret 65536Width = ret - Length * 65536 'lblMaxLength.Caption = Length 'lblMaxWidth.Caption = Width '支持最小打印紙： ret = DeviceCapabilities(打稱,&

10、quot;LPT1", DC_MINEXTENT, ByVal 0&, ByVal Length = ret 65536Width = ret - Length * 65536'支持紙張種類數(shù)ret = DeviceCapabilities(打機(jī)稱,"LPT1", DC_PAPERS, ByVal 0&, ByVal 0&)'紙張編號(hào)ReDim PaperNo(1 To ret) As IntegerCall DeviceCapabilities(打印機(jī)稱,"LPT1", DC_PAPERS, Paper

11、No(1), ByVal 0&)'紙張名稱Dim arrPageName()As ByteDim allNames AsStringDim lStart As Long, lEnd As LongReDim PaperName(1To ret)As StringReDim arrPageName(1 To ret * 64) As ByteCall DeviceCapabilities(打印機(jī)稱,"LPT1", DC_PAPERNAMESarrPageName(1), ByVal 0&)allNames = StrConv(arrPageName,

12、vbUnicode)'loop through the string and search for the names of the papers i = 1DolEnd = InStr(lStart+ 1,allNames,Chr$(0),vbBinaryCompare)If (lEnd > 0) And (lEnd- lStart- 1 > 0) ThenPaperName(i) = Mid$(allNames, lStart + 1, lEnd - lStart -1) i = i + 1End If lStart = lEndLoop Until lEnd = 0&

13、#39;紙張尺寸ReDim PaperSize(1 To ret) As POINTSCall DeviceCapabilities(Form2.Combo1.Text, "LPT1", DC_PAPERSIZE, PaperSize( 1), ByVal 0&)顯示在表格中For i = 1 To retfgdl.AddItem PaperNo(i) & vbTab & PaperName(i) & vbTab & PaperSize(i).y & vbTab & PaperSize(i).xNext i'移

14、除第一個(gè)空行fgd1.Row = 1fgd1.RemoveItem 1End SubPrivate Sub Form_Resize()With fgd1.Left = 0.Width = Me.ScaleWidth.Height = Me.ScaleHeight.Top = 0End WithEnd Sub(5)編寫VB打印限制程序的幾點(diǎn)心得摘 要 本文在總結(jié)作者實(shí)際開發(fā)經(jīng)驗(yàn)的根底上,詳細(xì)介紹了 VB實(shí)現(xiàn)高分辨率打印 方法的幾點(diǎn)心得.闡述了參數(shù)化繪圖程序縮短打印程序開發(fā)時(shí)間的方法以及打印機(jī)縮 放屬性與窗體屬性匹配使用的技巧,并總結(jié)了解決坐標(biāo)定位、圖形與其實(shí)際打印位置出現(xiàn)誤差等問(wèn)題的經(jīng)驗(yàn).關(guān)鍵詞

15、 PrintForm高分辨率打印參數(shù)化繪圖縮放屬性Some Experiences on VB Print ControlBai Yang, Wang PengComputer Science DepartmentUniversity of Information and EngineeringZhengzhou, ChinaAbstract : On the basis of our working experiences, wehave given a detaildescription about VB print method of high resolution.Wefocus on

16、 how to shortendeveloping period with parameterized plot program, the match between the zoom attribute and the attribute of display window etc.,which based on print programof Printer Object. In addition to this, we have introduced some experiences on dealing with position error that caused by the mi

17、smatch between font and graph on screen and that on printer.Keywords ： PrintForm, High Resolution Print, parameterized plot, zoomattribute1 .簡(jiǎn)介Visual Basic(VB)給用戶提供了可視化編程環(huán)境,因其簡(jiǎn)單易學(xué)、功能強(qiáng)大而得到了廣泛的應(yīng)用.VB提供了兩種實(shí)現(xiàn)打印的方法.一般在對(duì)打印質(zhì)量要求不高的場(chǎng)合,或者 是編程工程的早期開發(fā)過(guò)程中,可以直接使用VB窗體的Printform 方法實(shí)現(xiàn)打印.用這種方法實(shí)現(xiàn)打印具有編程簡(jiǎn)單、易用并且功能強(qiáng)大的優(yōu)點(diǎn),它只

18、需要通過(guò)一行代碼,幾乎能打 印所有內(nèi)容.實(shí)現(xiàn)的方法就是：首先將要打印的內(nèi)容在屏幕上顯示出來(lái),然后開發(fā)人員只要為窗體對(duì)象激活PrintForm ,窗體那么自動(dòng)將 要打印的內(nèi)容 發(fā)送到Printer對(duì)象上,其語(yǔ)法格式如下：窗體.PrintForm .如果窗體中包括圖形,那么打印前應(yīng)先置窗 體白A AutoRedraw屬性為真.這種方法雖然簡(jiǎn)單,但是它卻存在著內(nèi)存消耗大、打印粗糙、 速度慢等缺陷,尤其對(duì)于帶有滾動(dòng)條的圖像,這種方法只能打印當(dāng)前可視的區(qū)域.在實(shí)際應(yīng)用中經(jīng)常會(huì)遇到對(duì)打印質(zhì)量要求很高的場(chǎng)合,例如打印 音樂(lè)五線譜,對(duì)打印的美觀、清楚度以及音符符頭的位置都有很嚴(yán)格的要求,這種應(yīng)用場(chǎng)合假設(shè)采用V

19、B提供的另一種基于 Printer對(duì)象的打印方法那么可以獲得高分辨率的打印,得到很高的打印質(zhì)量.在實(shí)際應(yīng)用中,也可以根據(jù)實(shí)際應(yīng)用情況將上述兩種方法結(jié)合起來(lái)使用,即：前期工作使用PrintForm 簡(jiǎn)單的打印方法將窗體的布局定下來(lái),后期再使用基于Printer對(duì)象的打印方法實(shí)現(xiàn)最終的打印工作.2 .高分辨率打印程序開發(fā)心得Printer 對(duì)象VB的打印可以使用 Printer對(duì)象.Printer對(duì)象是一個(gè)獨(dú)立于打印機(jī)設(shè)備的封裝,它 可以代表不同的打印機(jī),初始時(shí),Printer對(duì)象為系統(tǒng)缺省的打印機(jī),也可以使用以下語(yǔ)句： Set Printer=Printers(2)( 其中2代表Printers

20、 集中的第二個(gè)打印機(jī) )對(duì)打印機(jī)進(jìn)行指 定.Printer 對(duì)象具備例如：ColorMode、Copies、Duplex、Printquality 等限制打印機(jī)特征的屬性,提供了 Newpage EndDoc KillDoc等限制打印過(guò)程的方法,以及大多數(shù)由窗 體和圖片框控件提供的圖形屬性和方法如：Currentx、Currenty、Textwidth、Textheight、Print、Pset、Line、PaintPicture 和Circle 等方法,它還擁有 Font的所有屬性.實(shí)現(xiàn)高 分辨率的打印就是通過(guò)限制Printer對(duì)象的上述屬性和方法完成的.直接利用 Windows公用標(biāo)準(zhǔn)對(duì)話

21、框CommonDialogf空件【打印】VB為用戶提供了 Windows公用標(biāo)準(zhǔn)對(duì)話框 CommonDialog控件：【翻開】、【文件另存 為】、【顏色】、【字體】、【打印】. CommonDialog控件在Visual Basic和Microsoft Windows動(dòng)態(tài)連接庫(kù)Commdlg.dll例程之間提供了接口.利用公用標(biāo)準(zhǔn)對(duì)話框【打印】開發(fā) VB的打印程序,將大大縮短程序的開發(fā)周期.應(yīng)用程序中要使用公用對(duì)話框,必須首先在 工具箱中添加公用對(duì)話框控件.該動(dòng)作通過(guò)激活【部件】對(duì)話框,選中 Microsoft Common Dialog Control6.0, 單擊【確定】即可.然后再將公用

22、控件添加到窗體上并設(shè)置相應(yīng)屬性, 該控件具有的屬性有 Color、Font、Print、Help等.VB提供mnu ()過(guò)程供用戶添加開發(fā)的打印程序代碼.Printer對(duì)象限制打印的根本過(guò)程利用Printer對(duì)象開發(fā)的打印程序主要靠其提供的NewPage 打印新的一頁(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ì)

23、打印額外的空白頁(yè).如果希望顯示空白頁(yè),那么可在新的一頁(yè)上只使用 Printer.Print 打印空字符即可.為了通過(guò)Printer對(duì)象實(shí)現(xiàn)文本和圖形的打印,獲得最好的打印質(zhì)量,還需要 對(duì)VB限制打印機(jī)的多種屬性有更深入的理解,例如打印機(jī)的坐標(biāo)體系向屏幕坐標(biāo)體系的轉(zhuǎn)換、打印機(jī)字體尺寸確實(shí)定等.下面給出了打印程序的主框架：Private Sub mnuClick On Error Resume NextIf ActiveForm Is Nothing Then Exit SubWith dlgCommonDialog'打印機(jī)公用對(duì)話框.DialogTitle =" 打印"

24、; .CancelError = True.Flags = 1Printer.FontSize = dlgCommonDialog.FontSize'將打印機(jī)公用對(duì)話框設(shè)置的字體大小傳遞 給打印機(jī).ShowPrinter'在屏幕上顯示【打印】公用對(duì)話框If Err <> MSComDlg.cdlCancel ThenPrinter.FontTransparent = False 不透明SetPrinterScaleMyform的屬性PrintAnywhere Printer 參數(shù)化例程'初始化打印的字體為'匹配打印機(jī)的縮放屬性與窗體'可放置用

25、戶編寫的打印對(duì)象'實(shí)現(xiàn)字符和圖形的顯示Printer.NewPage'打印機(jī)坐標(biāo)初始化PrintAnywhere Printer'打印另一頁(yè)的內(nèi)容Printer.NewPage'打印機(jī)坐標(biāo)初始化Printer.EndDoc'將該任務(wù)參加打印機(jī)任務(wù)隊(duì)列'不打印空白頁(yè)P(yáng)rinter.KillDoc'取消當(dāng)前的打印任務(wù)End IfEnd WithEnd Sub參數(shù)化繪圖程序用VB開發(fā)應(yīng)用程序時(shí),如果使用參數(shù)化繪圖例程進(jìn)行屏幕顯示程序的開發(fā), 那么在開發(fā)打印程序時(shí),就不需再另行開發(fā)代碼,從而防止了大量的重復(fù)勞動(dòng),有 效地縮短了程序的開發(fā)周期.參數(shù)

26、化繪圖例程就是：在開發(fā)例程時(shí),為每一個(gè)例 行程序提供一個(gè)OBJEC底型的參數(shù),調(diào)用程序通過(guò)向例程的 OBJEC段型參數(shù)分 別傳遞窗體、Printer對(duì)象,就可分別完成屏幕顯示與打印機(jī)輸出.見如下示例：Sub PrintAnywhere (Dest As Object )Dest.Print “HELLO!Dest Is Printer ThenPrinter.EndDocEnd IfEnd Sub要完成屏幕上的輸出,調(diào)用PrintAnywhere Myform即可,而調(diào)用PrintAnywhere Printer那么完成在打印機(jī)上輸出.屬性匹配與窗體縮放由于限制打印機(jī)實(shí)際繪圖區(qū)域大小的屬性He

27、ight和Width ,由目前正在使用的紙張決定,而且可打印的區(qū)域與紙張邊緣有一定距離.因而為了獲得正確的打印輸出結(jié)果,不能簡(jiǎn)單地將Printer對(duì)象直接傳遞給繪圖例行程序,還必須要解 決打印機(jī)的縮放屬性與顯示窗體屬性相匹配的問(wèn)題.即：保證使窗體中的打印 內(nèi)容以正確的大小顯示,并居于可打印區(qū)域的中間.實(shí)際上實(shí)現(xiàn)的是打印機(jī)的坐標(biāo) 體系向屏幕坐標(biāo)體系的轉(zhuǎn)換.具體過(guò)程是：使用打印機(jī)的ScaleX和ScaleY方法, 獲取以twip為單位的打印機(jī)尺寸,再利用窗體的 ScaleX和ScaleY方法將這些 尺寸轉(zhuǎn)換為窗體中的坐標(biāo)系統(tǒng),從而實(shí)現(xiàn)以窗體的坐標(biāo)系統(tǒng)提供打印機(jī)可打印區(qū) 域大小的目的.然后,用這些尺

28、寸作為打印機(jī)中新的 ScaleWidth和ScaleHeight , 即可實(shí)現(xiàn)屬性匹配.但是,我們?cè)诖蛴r(shí),經(jīng)常會(huì)遇到這樣的場(chǎng)合一一在不改變窗體形狀的情況 下,需要擴(kuò)大或縮小窗體的大小.要完成這樣的工作,不僅需要完成屬性匹配, 還要確定對(duì)象被縮放的系數(shù).程序如下：Private Sub SetPrinterScale(obj As Object)Dim pwid As Single, phgt As Single, xmid As Single, ymid As SingleDim owid As Single, ohgt As Singleowid = obj.ScaleX(obj.Scal

29、eWidth, obj.ScaleMode, vbTwips)ohgt = obj.ScaleY(obj.ScaleHeight, obj.ScaleMode, vbTwips)'獲取窗體以Twips表示的尺寸pwid = Printer.ScaleX(Printer.ScaleWidth, Printer.ScaleMode, vbTwips)phgt = Printer.ScaleY(Printer.ScaleHeight, Printer.ScaleMode, vbTwips)'獲取打印機(jī)以Twips表示的尺寸If (ohgt / owid > phgt / pwi

30、d) Thens = phgt / ohgt Elses = pwid / owidEnd If'計(jì)算縮放因子pwid = obj.ScaleX(pwid, vbTwips, obj.ScaleMode) / sphgt = obj.ScaleY(phgt, vbTwips, obj.ScaleMode) / s'將打印機(jī)的尺寸轉(zhuǎn)換成obj的坐標(biāo)系統(tǒng)/縮放因子x_mid = obj.ScaleLeft + obj.ScaleWidth / 2y_mid = obj.ScaleTop + obj.ScaleHeight / 2'設(shè)置打印區(qū)域的中央點(diǎn)坐標(biāo)Printer.Sc

31、ale (x_mid - pwid / 2, y_mid - phgt / 2)-(x_mid + pwid / 2, y_mid + phgt / 2)'設(shè)置打印機(jī)中新的ScaleWidth和ScaleHeightEnd Sub(6)坐標(biāo)定位窗體、圖片框控件以及Printer對(duì)象提供的TextWidth和TextHeight方法在 文本定位的應(yīng)用方面很有用.TextWidth、TextHeight分別以對(duì)象當(dāng)前的刻度 單位返回字符串的寬度和高度.但是必須注意很多字體中其字符寬度并不全部相 同,所以不能簡(jiǎn)單地將單個(gè)字符的寬度乘以字符數(shù)來(lái)獲得字符串的寬度.對(duì)那些沒(méi)有TextWidth和T

32、extHeight的控件可通過(guò)設(shè)置父窗體的 Font屬性,使其與該 控件的屬性相匹配,再利用父窗體的 TextWidth和TextHeight獲得它的字符串 的寬度和高度.但是,我們?cè)谕瓿善聊伙@示程序調(diào)試后,在進(jìn)行打印輸出時(shí)卻出現(xiàn)了屏幕顯 示與打印結(jié)果的不一致性的現(xiàn)象,表現(xiàn)在所打印的字體之間坐標(biāo)關(guān)系與屏幕顯示 不一樣,例如：屏幕顯示上的兩個(gè)字符不重疊,而打印出的字符卻出現(xiàn)相互重疊的現(xiàn)象.經(jīng)調(diào)試發(fā)現(xiàn),問(wèn)題出現(xiàn)在字體尺寸確實(shí)定上.程序中,屏幕上顯示的字 符坐標(biāo)是通過(guò)對(duì)象的TextWidth和TextHeight方法計(jì)算得來(lái)的,它直接受到字 體尺寸大小的影響.VB向用戶提供的字體是在用戶需要的打印機(jī)

33、點(diǎn)的范圍內(nèi),如果你需要的字體大小為73點(diǎn),那么打印出的實(shí)際字體大小為 72.75.然而窗體、 圖片框控件的Fontsize只能是整數(shù),例如它不能將字體的大小定為72.75,實(shí)際上這就造成了屏幕上顯示字體與實(shí)際打印字體大小之間產(chǎn)生了誤差.我們采用如下方法來(lái)解決該問(wèn)題,就是在計(jì)算字體大小時(shí),根據(jù)計(jì)算出來(lái)的字體尺寸,確 定它存在的范圍,然后再將它定位到 VB提供的幾種固定大小的字體上,而不是 隨意指定.當(dāng)然,也可以有其它的解決方法.例如：字體大小選取偶數(shù)等.由于 篇幅所限,這里不再作介紹.以上是筆者在總結(jié)實(shí)際應(yīng)用工作中的一些心得與體會(huì),希望本篇文章能對(duì)首 次使用VB開發(fā)打印程序的設(shè)計(jì)人員有所幫助.(

34、6)VB中不是有Printers集合嗎寫個(gè)For Each循環(huán)就能枚舉Printers集合中的所有打印機(jī)Printer 對(duì)象和 Printers 集合使用 Printer對(duì)象可以實(shí)現(xiàn)與系統(tǒng)打印機(jī)的通訊(最初是缺省系統(tǒng)打印機(jī)).用 Printers集合可獲取有關(guān)系統(tǒng)上所有可用打印機(jī)的信息.語(yǔ)法PrinterPrinters(index)index所在處表示從0至UPrinters.Count-1 之間的整數(shù).說(shuō)明用圖形方法在 Printer 對(duì)象上繪制文本和圖形.一旦 Printer 對(duì)象中含有將要打印的輸出信息,可 用 EndDoc方法直接將輸出信息送到應(yīng)用程序的缺省打印機(jī)上.如果要打印這些信息,應(yīng)該檢查和可能還要修正窗體的布局.例如,如果用 PrintForm方法打印窗體,那么到頁(yè)底圖形圖象可能被剪切,而文本那么被移到下一頁(yè).Printers集合可用來(lái)查詢可用的打印機(jī),這樣就可以為應(yīng)用程序指定一臺(tái)缺省打印機(jī).例