VB中打印机选择

 假设你的COMMONDIALOG控件叫CMDiag

用如下代码可以使你选择的打印机成为默认打印机"Printer"

On Error Resume Next

CMDiag.PrinterDefault = True

CMDiag.CancelError = True

CMDiag.ShowPrinter

If Err.Number <> 0 Then Exit Sub

（2）

VB   里面，   原本改变预设打印机的方法是：(假设安装有两种打印机(驱动程式))   

  Set   Printer   =   Printers(0)   '   将预设打印机设定成第一种打印机   

  Set   Printer   =   Printers(1)   '   将预设打印机设定成第二种打印机   

  但实际上以上叙述有时候不会成功(原因不详)，   为了能够成功地改变预设打印机，   

  以下是呼叫Windows   API   的方法：(   此一解决方案适用於   Windows   95,98)   

  1.   API   的宣告：     

  Const   HWND_BROADCAST   =   &HFFFF&   

  Const   WM_WININICHANGE   =   &H1A   

  Private   Declare   Function   GetProfileString   Lib   "kernel32"   Alias     _   

"GetProfileStringA"   (ByVal   lpAppName   As   String,   ByVal   lpKeyName   As   _   

String,   ByVal   lpDefault   As   String,   ByVal   lpReturnedString   As   String,   _   

ByVal   nSize   As   Long)   As   Long   

  Private   Declare   Function   WriteProfileString   Lib   "kernel32"   Alias   _   

"WriteProfileStringA"   (ByVal   lpszSection   As   String,   ByVal   lpszKeyName   _   

As   String,   ByVal   lpszString   As   String)   As   Long   

  Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   _   

    (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   _   

    lParam   As   Any)   As   Long   

  2.   程式范例：  

  PrinterName   =   "您想设定的打印机名称"   

  Dim   S   As   String,   length   As   Long,   hKey   As   Long   

  S   =   String(80,   Chr(0))   

  length   =   GetProfileString("devices",   PrinterName,   "",   S,   Len(S))   

  S   =   Left(S,   length)   

  Call   WriteProfileString("windows",   "device",   PrinterName   &   

 Call   SendMessage(HWND_BROADCAST,   WM_WININICHANGE,   &H7FFF&,   ByVal   "windows")    

  至於改变   NT   预设打印机的方法，   则是改变登录资料库(Registry)打印机的设定，   

  在登录资料库中纪录   

    预设打印机的   Value   是:   

HKEY_CURRENT_USER   

\\Software\\Microsoft\\WindowsNT\\CurrentVersion\\Windows   subkey   的 Device   value  

（3）VB中获取指定打印机的各种纸张类型及大小

放入一个MSFlexGrid，名称为fgd1，列数为4 

'Option Explicit 

Private Const DC_MAXEXTENT = 5 

Private Const DC_MINEXTENT = 4 

Private Const DC_PAPERNAMES = 16 

Private Const DC_PAPERS = 2 

Private Const DC_PAPERSIZE = 3 

Private Declare Function DeviceCapabilities Lib "winspool.drv" Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, ByVal iIndex As Long, lpOutput As Any, lpDevMode As Any) As Long 

Private Type POINTS 

        x  As Long 

        y  As Long 

End Type 

Private Sub Form_Load() 

Dim i As Long 

With fgd1 

    .Clear 

    .FormatString = "^纸张编号|^纸张名称|^纸张长度|^纸张宽度" 

    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, ret As Long 

Dim Length As Integer, Width As Integer 

Dim PaperNo() As Integer, PaperName() As String, PaperSize() As POINTS 

'支持最大打印纸： 

ret = DeviceCapabilities(打印机名称, "LPT1", DC_MAXEXTENT, ByVal 0&, ByVal 0&) 

Length = ret \\ 65536 

Width = ret - Length * 65536 

'lblMaxLength.Caption = Length 

'lblMaxWidth.Caption = Width 

'支持最小打印纸： 

ret = DeviceCapabilities(打印机名称, "LPT1", DC_MINEXTENT, ByVal 0&, ByVal 0&) 

Length = ret \\ 65536 

Width = ret - Length * 65536 

'支持纸张种类数 

ret = DeviceCapabilities(打印机名称, "LPT1", DC_PAPERS, ByVal 0&, ByVal 0&) 

'纸张编号 

ReDim PaperNo(1 To ret) As Integer 

Call DeviceCapabilities(打印机名称, "LPT1", DC_PAPERS, PaperNo(1), ByVal 0&) 

'纸张名称 

Dim arrPageName() As Byte 

Dim allNames As String 

Dim lStart As Long, lEnd As Long 

ReDim PaperName(1 To ret) As String 

ReDim arrPageName(1 To ret * ) As Byte 

Call DeviceCapabilities(打印机名称, "LPT1", DC_PAPERNAMES, arrPageName(1), ByVal 0&) 

allNames = StrConv(arrPageName, vbUnicode) 

'loop through the string and search for the names of the papers 

i = 1 

Do 

    lEnd = InStr(lStart + 1, allNames, Chr$(0), vbBinaryCompare) 

    If (lEnd > 0) And (lEnd - lStart - 1 > 0) Then

        PaperName(i) = Mid$(allNames, lStart + 1, lEnd - lStart - 1) 

        i = i + 1 

    End If 

    lStart = lEnd 

Loop Until lEnd = 0 

'纸张尺寸 

ReDim PaperSize(1 To ret) As POINTS 

Call DeviceCapabilities(Form2.Combo1.Text, "LPT1", DC_PAPERSIZE, PaperSize(1), ByVal 0&) 

'显示在表格中 

For i = 1 To ret 

    fgd1.AddItem PaperNo(i) & vbTab & PaperName(i) & vbTab & PaperSize(i).y & vbTab & PaperSize(i).x 

Next i

'移除第一个空行 

fgd1.Row = 1 

fgd1.RemoveItem 1 

End Sub 

Private Sub Form_Resize() 

With fgd1 

    .Left = 0 

    .Width = Me.ScaleWidth 

    .Height = Me.ScaleHeight 

    .Top = 0 

End With 

End Sub

（5）编写VB打印控制程序的几点心得

摘　要　本文在总结作者实际开发经验的基础上，详细介绍了VB实现高分辨率打印方法的几点心得。阐述了参数化绘图程序缩短打印程序开发时间的方法以及打印机缩放属性与窗体属性匹配使用的技巧，并总结了解决坐标定位、图形与其实际打印位置出现误差等问题的经验。

关键词　 PrintForm  高分辨率打印 参数化绘图 缩放属性

Some Experiences on VB Print Control  

Bai Yang, Wang Peng

Computer Science Department

University of Information and Engineering

Zhengzhou, China 

Abstract： On the basis of our working experiences, we　have given a detail description about VB print method of  high resolution. We focus on  how to shorten developing period  with parameterized plot program, the match between the zoom attribute and the attribute of display window etc., which based on print program of Printer Object. In addition to this, we have introduced some experiences on dealing with position error that caused by the mismatch between font and graph on screen and that on printer. 

Keywords： PrintForm, High Resolution Print, parameterized plot ，zoom attribute  

1．简介

Visual Basic（VB）给用户提供了可视化编程环境，因其简单易学、功能强大而得到了广泛的应用。VB提供了两种实现打印的方法。一般在对打印质量要求不高的场合，或者是编程项目的早期开发过程中，可以直接使用VB窗体的Printform方法实现打印。用这种方法实现打印具有编程简单、易用并且功能强大的优点，它只需要通过一行代码，几乎能打印所有内容。实现的方法就是：首先将要打印的内容在屏幕上显示出来,然后开发人员只要为窗体对象激活  PrintForm ，窗体则自动将要打印的内容发送到Printer对象上，其语法格式如下：[窗体.]PrintForm 。如果窗体中包括图形，那么打印前应先置窗体的AutoRedraw属性为真。这种方法虽然简单，但是它却存在着内存消耗大、打印粗糙、速度慢等缺陷，尤其对于带有滚动条的图像，这种方法只能打印当前可视的区域。在实际应用中经常会遇到对打印质量要求很高的场合，例如打印音乐五线谱，对打印的美观、清晰度以及音符符头的位置都有很严格的要求，这种应用场合若采用VB提供的另一种基于Printer对象的打印方法则可以获得高分辨率的打印，得到很高的打印质量。在实际应用中，也可以根据实际应用情况将上述两种方法结合起来使用，即：前期工作使用PrintForm 简单的打印方法将窗体的布局定下来，后期再使用基于Printer对象的打印方法实现最终的打印工作。

2．高分辨率打印程序开发心得

⑴ Printer对象

VB的打印可以使用Printer对象。Printer对象是一个于打印机设备的封装，它可以代表不同的打印机，初始时，Printer对象为系统缺省的打印机，也可以使用下列语句：Set  Printer=Printers(2) (其中2代表Printers集中的第二个打印机)对打印机进行指定。

Printer对象具备例如：ColorMode、Copies、Duplex、Printquality等控制打印机特征的属性，提供了Newpage、EndDoc、KillDoc等控制打印过程的方法，以及大多数由窗体和图片框控件提供的图形属性和方法如：Currentx、Currenty、Textwidth、Textheight、Print、Pset、Line、PaintPicture和Circle等方法，它还拥有Font的所有属性。实现高分辨率的打印就是通过控制Printer对象的上述属性和方法完成的。

⑵ 直接利用Windows公用标准对话框CommonDialog控件【打印】

VB为用户提供了Windows公用标准对话框CommonDialog控件：【打开】、【文件另存为】、【颜色】、【字体】、【打印】。CommonDialog控件在Visual Basic 和Microsoft Windows动态连接库Commdlg.dll例程之间提供了接口。利用公用标准对话框【打印】开发VB的打印程序，将大大缩短程序的开发周期。应用程序中要使用公用对话框，必须首先在工具箱中添加公用对话框控件。该动作通过激活【部件】对话框，选中Microsoft Common Dialog Control6.0, 单击【确定】即可。然后再将公用控件添加到窗体上并设置相应属性，该控件具有的属性有Color、Font、Print、Help等。 

VB提供mnuFilePrint_Click（）过程供用户添加开发的打印程序代码。

⑶ Printer对象控制打印的基本过程

利用Printer对象开发的打印程序主要靠其提供的——NewPage （打印新的一页，CurrentX、CurrentY置为新页的左上角，可完成多页功能。）、EndDoc  （将打印任务加入打印机队列）、KillDoc  （取消打印任务）控制打印过程的。一般情况下，打印程序完成多页打印时会多次执行NewPage，结束时执行一次EndDoc将打印任务加入打印机队列。如果你在NewPage后，立即使用EndDoc，VB则不会打印额外的空白页。如果希望显示空白页，则可在新的一页上只使用Printer.Print “  “打印空字符即可。

为了通过Printer对象实现文本和图形的打印，获得最好的打印质量，还需要对VB控制打印机的多种属性有更深入的理解，例如打印机的坐标体系向屏幕坐标体系的转换、打印机字体尺寸的确定等。下面给出了打印程序的主框架：

Private Sub mnuFilePrint_Click()

    On Error Resume Next

    If ActiveForm Is Nothing Then Exit Sub

    With dlgCommonDialog            ‘打印机公用对话框

        .DialogTitle = "打印"

        .CancelError = True

        .Flags = 1

         Printer.FontSize = dlgCommonDialog.FontSize     

‘将打印机公用对话框设置的字体大小传递给打印机

         .ShowPrinter      ‘ 在屏幕上显示【打印】公用对话框

If Err <> MSComDlg.cdlCancel Then

            Printer.FontTransparent = False   ‘初始化打印的字体为不透明

            SetPrinterScale Myform    ‘匹配打印机的缩放属性与窗体的属性

            PrintAnywhere Printer        ‘可放置用户编写的打印对象参数化例程

                                      ‘实现字符和图形的显示

Printer.NewPage           ‘打印机坐标初始化

PrintAnywhere Printer     ‘打印另一页的内容

Printer.NewPage           ‘打印机坐标初始化

            Printer.EndDoc               ‘将该任务加入打印机任务队列

‘ 不打印空白页

            Printer.KillDoc              ‘取消当前的打印任务

        End If

    End With

  End Sub

⑷ 参数化绘图程序

用VB开发应用程序时，如果使用参数化绘图例程进行屏幕显示程序的开发，则在开发打印程序时，就不需再另行开发代码，从而避免了大量的重复劳动，有效地缩短了程序的开发周期。参数化绘图例程就是：在开发例程时，为每一个例行程序提供一个OBJECT类型的参数，调用程序通过向例程的OBJECT类型参数分别传递窗体、Printer对象，就可分别完成屏幕显示与打印机输出。 见如下示例：

Sub   PrintAnywhere（Dest As Object）

Dest.Print “HELLO!”

Dest Is Printer Then

        Printer.EndDoc

End　 If

End Sub

要完成屏幕上的输出，调用 PrintAnywhere Myform 即可，而调用 PrintAnywhere　 Printer则完成在打印机上输出。

⑸ 属性匹配与窗体缩放

因为控制打印机实际绘图区域大小的属性Height和Width，由目前正在使用的纸张决定，而且可打印的区域与纸张边缘有一定距离。因而为了获得正确的打印输出结果，不能简单地将Printer对象直接传递给绘图例行程序，还必须要解决打印机的缩放属性与显示窗体属性相匹配的问题。即：保证使窗体中的打印内容以正确的大小显示，并居于可打印区域的中间。实际上实现的是打印机的坐标体系向屏幕坐标体系的转换。具体过程是：使用打印机的ScaleX和ScaleY方法，获取以twip为单位的打印机尺寸，再利用窗体的ScaleX和ScaleY方法将这些尺寸转换为窗体中的坐标系统，从而实现以窗体的坐标系统提供打印机可打印区域大小的目的。然后，用这些尺寸作为打印机中新的ScaleWidth和ScaleHeight，即可实现属性匹配。

但是，我们在打印时，经常会遇到这样的场合——在不改变窗体形状的情况下，需要扩大或缩小窗体的大小。要完成这样的工作，不仅需要完成属性匹配，还要确定对象被缩放的系数。程序如下：

Private Sub SetPrinterScale(obj As Object)

Dim pwid As Single, phgt As Single, xmid As Single, ymid As Single

Dim owid As Single, ohgt As Single

owid = obj.ScaleX(obj.ScaleWidth, 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)

‘获取打印机以Twips表示的尺寸

If (ohgt / owid > phgt / pwid) Then

    s = phgt / ohgt

Else

    s = pwid / owid

End If        ‘计算缩放因子

pwid = obj.ScaleX(pwid, vbTwips, obj.ScaleMode) / s

phgt = obj.ScaleY(phgt, vbTwips, obj.ScaleMode) / s

             ‘将打印机的尺寸转换成obj的坐标系统 / 缩放因子

x_mid = obj.ScaleLeft + obj.ScaleWidth / 2

y_mid = obj.ScaleTop + obj.ScaleHeight / 2‘设置打印区域的中心点坐标

Printer.Scale (x_mid - pwid / 2, y_mid - phgt / 2)-(x_mid + pwid / 2, y_mid + phgt / 2)

           ‘ 设置打印机中新的ScaleWidth和ScaleHeight

End Sub

⑹     坐标定位

    窗体、图片框控件以及Printer对象提供的TextWidth和 TextHeight方法在文本定位的应用方面很有用。TextWidth、 TextHeight分别以对象当前的刻度单位返回字符串的宽度和高度。但是必须注意很多字体中其字符宽度并不全部相同，所以不能简单地将单个字符的宽度乘以字符数来获得字符串的宽度。对那些没有TextWidth和TextHeight的控件可通过设置父窗体的Font属性，使其与该控件的属性相匹配，再利用父窗体的TextWidth和TextHeight获得它的字符串的宽度和高度。

但是，我们在完成屏幕显示程序调试后，在进行打印输出时却出现了屏幕显示与打印结果的不一致性的现象，表现在所打印的字体之间坐标关系与屏幕显示不一样，例如：屏幕显示上的两个字符不重叠，而打印出的字符却出现相互重叠的现象。经调试发现，问题出现在字体尺寸的确定上。程序中，屏幕上显示的字符坐标是通过对象的TextWidth和TextHeight方法计算得来的，它直接受到字体尺寸大小的影响。VB向用户提供的字体是在用户需要的打印机点的范围内，如果你需要的字体大小为73点，则打印出的实际字体大小为72.75。然而窗体、图片框控件的Fontsize只能是整数，例如它不能将字体的大小定为72.75，实际上这就造成了屏幕上显示字体与实际打印字体大小之间产生了误差。 我们采用如下方法来解决该问题，就是在计算字体大小时，根据计算出来的字体尺寸，确定它存在的范围，然后再将它定位到VB提供的几种固定大小的字体上，而不是随意指定。当然，也可以有其它的解决办法。例如：字体大小选取偶数等。由于篇幅所限，这里不再作介绍。

以上是笔者在总结实际应用工作中的一些心得与体会，希望本篇文章能对首次使用VB开发打印程序的设计人员有所帮助。 

（6）

VB中不是有Printers集合吗   

  写个For   Each循环就能枚举Printers集合中的所有打印机   

  Printer   对象和   Printers   集合   

  使用   Printer   对象可以实现与系统打印机的通讯（最初是缺省系统打印机）。   

  用   Printers   集合可获取有关系统上所有可用打印机的信息。   

  语法   

  Printer   

  Printers(index)   

  index   所在处表示从   0   到   Printers.Count-1   之间的整数。   

  说明   

  用图形方法在   Printer   对象上绘制文本和图形。一旦   Printer   对象中含有将要打印的输出信息，可用   EndDoc   方法直接将输出信息送到应用程序的缺省打印机上。   

  如果要打印这些信息，应该检查和可能还要修正窗体的布局。例如，如果用   PrintForm   方法打印窗体，则到页底图形图象可能被剪切，而文本则被移到下一页。   

  Printers   集合可用来查询可用的打印机，这样就可以为应用程序指定一台缺省打印机。例如也许要找出哪些可用打印机用了指定的打印驱动程序。下面的代码查找所有的可用打印机，定位在第一个将页码方向设置为纵向的打印机，然后将其设置为   Portrait。   

  Dim   X   As   Printer   

  For   Each   X   In   Printers   

        If   X.Orientation   =   vbPRORPortrait   Then   

              '设定为系统缺省打印机。   

              Set   Printer   =   X   

              '   终止查找打印机。   

              Exit   For   

        End   If   

  Next   

  用   Set   语句指定   Printers   集合中的某一打印机为缺省打印机。前面的示例指定由对象变量   X   标识的打印机为应用程序的缺省打印机。   

  注意   如果用   Printers   集合来确定某一特定打印机，如   Printers(3)，则只能访问只读属性。如果想访问个别打印机的可读写属性，那么首先要使那个打印机成为应用程序的缺省打印机。   

  使用打印机集合   

  打印机集合是一个包括操作系统中所有可用打印机的对象。打印机列表与打印安装对话框或   Windows“控制面板”中的那些有效内容相同。打印机集合中的每台打印机有唯一索引定义。索引从   0   开始，每台打印机都可根据索引编号来引用。   

  不论用何种打印方法，所有   Visual   Basic   应用程序打印输出的内容，都直接指向   Printer   对象，它最初时代表   Windows“控制面板”中指定的缺省打印机。不过，也可把   Printers   集合中的任意一台设置为缺省打印机。   

  使用下列语法，可从打印机集合中选择打印机：   

  Set   Printer   =   Printers(n)   

  下列语句打印操作系统中所有打印机的设备名称到“立即”窗口中：   

  Private   Sub   Command1_Click()   

  Dim   x   As   Printer   

        For   Each   x   In   Printers   

              Debug.Print   x.DeviceName   

        Next   

  End   Sub   

  注意   不能在代码中创建新的   Printer   对象实例，也不能在   Printers   集合中直接添加或删除打印机。要在系统中添加或删除打印机，应使用   Windows“控制面板”。

（7）如何设置windows的默认打印机

Public   Function   ResetDefaultPrinter(szBuf   As   String)   As   Boolean   

  Dim   x   As   Long   

  x   =   WriteProfileString("windows",   "device",   szBuf)   

  x   =   SendMessageByString(HWND_BROADCAST,   WM_WININICHANGE,   0&,   "windows")   

  End   Function