2000下VB的printer对象好像不支持自定义纸张？各位有什么解决办法？

Question

使用 Printer 对象
有几种方法可在 Printer 对象中放置文本和图形。为了使用 Printer 对象进行打印，应按以下任一方式进行： 如果要使用缺省打印机以外的打印机打印，需在 Printers 集合中指定打印机给 Printer 对象。
将文本和图形装入 Printer 对象。
用 NewPage 和 EndDoc 方法打印 Printer 对象的内容。 
Printer 对象的属性
Printer 对象的属性，初始化时与 Windows“控制面板”中设置的缺省打印机的那些属性匹配。运行时，可设置任何 Printer 对象的属性，包括：PaperSize，Height，Width，Orientation，ColorMode，Duplex，TrackDefault，Zoom，DriverName，DeviceName，Port，Copies，PaperBin 和 PrintQuality。关于这些方法的细节和语法，请参阅《语言参考》。如果 TrackDefault 属性为 True，并且在 Windows“控制面板”中改变了缺省打印机，则 Printer 对象属性值将会反映新的缺省打印机的属性。在一页当中，一旦设置了某个属性，就不能在该页中改变某些属性。对这些属性的改变只能影响以后各页。下列语句给出了如何用不同的打印质量来打印各页：For pageno = 1 To 4
   Printer.PrintQuality = -1 * pageno
   Printer.Print "The quality of this page is"; pageno
   Printer.NewPage
Next打印质量值可从 –4 到 –1，或是一个与打印机分辨率（每英寸的点数 DPI）对应的正整数。例如，下列代码把打印机分辨率设置为 300 DPI：Printer.PrintQuality = 300详细信息 关于 Printer 对象属性的详细信息，请参阅《语言参考》的有关属性的内容。注意 Printer 属性值的效果依赖于打印机生产厂家提供的驱动程序。有些属性设置值没有作用，或几个不同的属性设置值可能有相同作用。在允许值范围之外的设置，可能产生错误，也可能不会产生错误。关于指定驱动程序的详细信息，请参阅生产厂家的文档资料。Scale 属性
Printer 对象有以下刻度属性： ScaleMode
ScaleLeft 和 ScaleTop
ScaleWidth 和 ScaleHeight
Zoom 
TScaleLeft 和 ScaleTop 属性分别定义打印页左上角的 x 坐标和 y 坐标。通过改变 ScaleLeft 和 ScaleTop 的值，可改变打印页的左边距和上边距。例如，通过下列语句，用 ScaleLe 和 ScaleTop 可指定打印的窗体 (PFrm) 在页中心：Printer.ScaleLeft = -((Printer.Width - PFrm.Width) / 2)
Printer.ScaleTop = -((Printer.Height - PFrm.Height) _
   / 2)许多打印机都支持 Zoom 属性。该属性定义按原来的百分之多少输出。缺省的 Zoom 属性值为 100，指定输出将按实际尺寸的百分之百来打印。可利用 Zoom 属性使打印页比实际纸页大一些或小一些。例如，将 Zoom 属性设置为 50，可使打印页看起来只是实际打印纸页长和宽的一半。下列语法将缺省 Printer 对象的 Zoom 属性设置为原来的一半：Printer.Zoom = 50定位文本和图形
就象为窗体和图形框设置属性一样，可为 Printer 对象设置 CurrentX 和 CurrentY 属性。这两个属性决定 Printer 对象当前页中的输出位置。下列语句设置了当前页左上角的图片坐标：Printer.CurrentX = 0
Printer.CurrentY = 0也可用 TextHeight 和 TextWidt 方法在 Printer 对象中定位文本。关于使用这些文本方法的详细内容，请参阅本章前面的“在指定位置显示打印输出”一节。在 Printer 对象上打印窗体
也许需要应用程序打印一个或多个窗体（连同窗体上的信息），尤其是当窗体的设计用于发票或时间表之类的打印资料时，更是如此。要做到这一点，最简单的途径是用 PrintForm 方法。在 Printer 对象中使用 Print 和图形方法，可在激光打印机上获得最佳效果。但要注意，使用 Printer 对象之前需要做较多准备，因为在打印之前要在 Printer 对象中重建窗体。在 Printer 对象中重建窗体也可能需要重建下列内容： 窗体的轮廓，包括标题和菜单栏。
控件和它们的内容，包括文本和图形。
直接应用于窗体的图形输出方法，包括 Print方法。 
重建 Printer 对象中的元素的扩展工作，取决于应用程序和所需打印窗体内容的多少。在窗体上重建文本和图形
当使用 Print，Line，Circle，PaintPicture 或 PSet 方法，在窗体中创建文本和图形时，可能需要在 Printer 对象中显示一个输出备份。实现此操作的最简便方法就是遍写一个与设备无关的过程来重建文本和图形。例如，下列过程就使用了 PaintPicture 方法，将窗体或控件的 Picture 属性打印到任意一个输出对象中，如，打印机或另一个窗体：Sub PrintAnywhere (Src As Object, Dest As Object)
   Dest.PaintPicture Src.Picture, Dest.Width / 2, _
      Dest.Height / 2
   If Dest Is Printer Then 
      Printer.EndDoc
   End If
End Sub然后调用此过程，并传送原对象和目标对象：PrintAnywhere MyForm, Printer
PrintAnywhere MyForm, YourForm详细信息 详细信息请参阅《语言参考》的“Print 方法”，“Line 方法”，“Circle 方法”，“Pset 方法”或“PaintPicture 方法”。打印窗体上的控件
Printer 对象可接收 Print 方法和图形方法的输出（如：Line 方法或 Pset 方法）。但不能把控件直接放在 Printer 对象中。如果应用程序需要打印控件，则必须编写过程来调用 Printer 对象要用到的每种控件，或使用 PrintForm 方法。打印 Printer 对象的内容
一旦将文本和图形放到 Printer 对象中，就可用 EndDoc 方法打印该内容。EndDoc 方法要换页，并将悬置的所有输出都送给假脱机系统。spooler 在输出传送到打印机的过程中，截取打印作业，并将它送往硬盘或内存，将打印工作保存在那里，直到打印机准备好为止。例如：Printer.Print "This is the first line of text in _
   a pair."
Printer.Print "This is the second line of text in _
   a pair."
Printer.EndDoc注意 如果应用程序结尾没有明确调用 EndDoc，Visual Basic 会自动调用。创建多页文档
打印较长的文档时，可用 NewPage 方法，在代码中指定新的一页。例如：Printer.Print "This is page 1."
Printer.NewPage
Printer.Print "This is page 2."
Printer.EndDoc取消打印作业
可用 KillDoc 方法结束当前的打印作业。例如，可用对话框询问是继续打印还是结束文档：Sub PrintOrNot()
   Printer.Print "This is the first line to _
      illustrate KillDoc method"
   Printer.Print "This is the second line to _
      illustrate KillDoc method"
   Printer.Print "This is the third line to _
      illustrate KillDoc method"
   If vbNo = MsgBox("Print this fine document?", _
         vbYesNo) Then
      Printer.KillDoc
   Else
      Printer.EndDoc
   End If
End Sub如果操作系统的打印管理器正在处理打印工作，则 KillDoc 方法将删除送入打印机的所有作业。但如果打印管理器没有控制打印工作，可能有页已送入打印机并且不会受 KillDoc 的影响。送入打印机的数据量与打印机驱动程序中的数据量稍有不同。注意 使用 KillDoc 方法不能结束使用 PrintForm 方法开始打印的作业。

Answer 1

安装SP5，下载：http://www.d1vb.com

Answer 2

Option ExplicitPublic Enum PrinterOrientationConstants
    OrientPortrait = 1
    OrientLandscape = 2
End EnumPrivate Type DEVMODE
    dmDeviceName As String * 32
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * 32
    dmUnusedPadding As Integer
    dmBitsPerPel As Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End TypePrivate Type PRINTER_DEFAULTS
    pDataType As String
    pDevMode As Long
    DesiredAccess As Long
End TypePrivate Type PRINTER_INFO_2
    pServerName As Long
    pPrinterName As Long
    pShareName As Long
    pPortName As Long
    pDriverName As Long
    pComment As Long
    pLocation As Long
    pDevMode As Long
    pSepFile As Long
    pPrintProcessor As Long
    pDataType As Long
    pParameters As Long
    pSecurityDescriptor As Long
    Attributes As Long
    Priority As Long
    DefaultPriority As Long
    StartTime As Long
    UntilTime As Long
    Status As Long
    cJobs As Long
    AveragePPM As Long
End Type'*******************'
' iDmpaper值   纸张 '
' 11           A5   '
' 13           B5   '
'*******************'Private Const DM_IN_BUFFER As Long = 8
Private Const DM_OUT_BUFFER As Long = 2
Private Const DM_ORIENTATION As Long = &H1
Private Const DM_PAPERSIZE = &H2&Private Const PRINTER_ACCESS_ADMINISTER As Long = &H4
Private Const PRINTER_ACCESS_USE As Long = &H8
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED _
    Or _
    PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)Private Declare Sub CopyMemory Lib "kernel32" Alias _
    "RtlMoveMemory" _
    (hpvDest As Any, hpvSource As Any, ByVal _
    cbCopy As Long)Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
    "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As _
    Long, pDefault As Any) As LongPrivate Declare Function ClosePrinter Lib "winspool.drv" _
    (ByVal hPrinter As Long) As LongPrivate Declare Function DocumentProperties Lib "winspool.drv" _
    Alias "DocumentPropertiesA" (ByVal hWnd As Long, ByVal hPrinter _
    As Long, _
    ByVal pDeviceName As String, pDevModeOutput As _
    Any, _
    pDevModeInput As Any, _
    ByVal fMode As Long) As LongPrivate Declare Function GetPrinter Lib "winspool.drv" _
    Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal level As Long, _
    pPrinter As Any, ByVal cbBuf As Long, pcbNeeded As Long) As _
    LongPrivate Declare Function SetPrinter Lib "winspool.drv" _
    Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal level As Long, _
    pPrinter As Any, ByVal Command As Long) As Long'在打印或预览之前直接调用SetDefaultPrinterOrientation 打印走向常数。注意：红色注释部分用于改变纸张的大小。
Function SetDefaultPrinterOrientation(ByVal eOrientation As _
    PrinterOrientationConstants, iDmpaper As Integer) As Boolean    Dim bDevMode() As Byte
    Dim bPrinterInfo2() As Byte
    Dim hPrinter As Long
    Dim lResult As Long
    Dim nSize As Long
    Dim sPrnName As String
    Dim dm As DEVMODE
    Dim olddm As DEVMODE
    Dim pd As PRINTER_DEFAULTS
    Dim pi2 As PRINTER_INFO_2    ' 获取默认打印机的设备名称
    sPrnName = Printer.DeviceName
    ' 由于要调用SetPrinter，所以
    ' 如果是在NT下就要求PRINTER_ALL_ACCESS
    pd.DesiredAccess = PRINTER_ALL_ACCESS    ' 获取打印机句柄
    If OpenPrinter(sPrnName, hPrinter, pd) Then
        
        ' 获取PRINTER_INFO_2结构要求的字节数        Call GetPrinter(hPrinter, 2&, 0&, 0&, nSize)
        ReDim bPrinterInfo2(1 To nSize) As Byte
        lResult = GetPrinter(hPrinter, 2, bPrinterInfo2(1), nSize, nSize)
        Call CopyMemory(pi2, bPrinterInfo2(1), Len(pi2))
        nSize = DocumentProperties(0&, hPrinter, sPrnName, 0&, 0&, 0)
              ReDim bDevMode(1 To nSize)
        If pi2.pDevMode Then
            Call CopyMemory(bDevMode(1), ByVal pi2.pDevMode, Len(dm))
        Else
            Call DocumentProperties(0&, hPrinter, sPrnName, bDevMode(1), 0&, DM_OUT_BUFFER)
        End If
        
        Call CopyMemory(dm, bDevMode(1), Len(dm))
        Call CopyMemory(olddm, bDevMode(1), Len(olddm))
        With dm
            ' 设置新的走向
            .dmOrientation = eOrientation
            .dmFields = DM_ORIENTATION
            .dmPaperSize = iDmpaper   '将纸张大小设为iDmpaper，请自行更改所需大小
        '    .dmPaperLength = iDmpaperLength
         '   .dmPaperWidth = iDmpaperWidth
            .dmFields = DM_PAPERSIZE  '必须，否则无法设置纸张大小
        End With
        
        Call CopyMemory(bDevMode(1), dm, Len(dm))        Call DocumentProperties(0&, hPrinter, sPrnName, _
                bDevMode(1), bDevMode(1), DM_IN_BUFFER Or _
                DM_OUT_BUFFER)
        
        pi2.pDevMode = VarPtr(bDevMode(1))
        
        lResult = SetPrinter(hPrinter, 2, pi2, 0&)
        
        Call ClosePrinter(hPrinter)
        SetDefaultPrinterOrientation = True
    Else
        SetDefaultPrinterOrientation = False
    End IfEnd Function