打印机HP6L时显示A3 大小的DATAREPORT？或用代码改变默认打印机？

Question

问题描述：
我用的是HP6L激光打印机(已设置成默认打印机)，HP6L打印机最大能支持A4纸，
可我用的DATAREPORT 页面是A3的，下面的API代码只能
改变A4纸的方响，用下面的代码改成A3纸大小后DATAREPORT提示"纸张宽度
小于DATAREPORT的宽度" 无法显示DATAREPORT。
所以我在打印机里面添加了一个EPSON LQ1600K打印机，
显示A3 大小页面的DATAREPORT时先把LQ1600K设置成默认打印机。
这样用起来非常麻烦。
请问：
1，能用代码来设置HP6L打印机的纸为A3 显示页面大小为A3 的DATAREPORT吗？
"请详细说明和写出详细的代码"
2，或能用代码来改变默认打印机使不同打印机随时设置为默认打印机吗？
"请详细说明和写出详细的代码"
3，或别的什么好的解决办法？ 
"请详细说明和写出详细的代码"Public Enum PrinterOrientationConstants
    OrientPortrait = 1
    OrientLandscape = 2
End Enum
'Printer.PaperSize = vbPRPSA3
Private 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 Type
Private Type PRINTER_DEFAULTS
    pDataType As String
    pDevMode As Long
    DesiredAccess As Long
End Type
Private 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 TypePrivate Const DC_PAPERNAMES = 16
Private Const DC_PAPERS = 2
Private Const DC_PAPERSIZE = 3Private Const DM_IN_BUFFER = 8
Private Const DM_OUT_BUFFER = 2
Private Const DM_ORIENTATION = &H1
Private Const DM_PAPERSIZE = &H2&Private Const DMPAPER_A3 = 8                    '  A3 297 x 420 mm
Private Const DMPAPER_A4 = 9                    '  A4 210 x 297 mmPrivate Const PRINTER_ACCESS_ADMINISTER = &H4
Private Const PRINTER_ACCESS_USE = &H8
Private Const STANDARD_RIGHTS_REQUIRED = &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 LongPrivate Declare Function DeviceCapabilities Lib "winspool.drv" _
    Alias "DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As String, _
    ByVal iIndex As Long, ByVal lpOutput As String, lpDevMode As DEVMODE) As LongFunction SetDefaultPrinterOrientation(ByVal eOrientation As _
    PrinterOrientationConstants, ByVal strPaperSize As String) 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 pd As PRINTER_DEFAULTS
    Dim pi2 As PRINTER_INFO_2    ' Get device name of default printer
    sPrnName = Printer.DeviceName
    ' PRINTER_ALL_ACCESS required under
    ' NT, because we're going to call
    ' SetPrinter
    pd.DesiredAccess = PRINTER_ALL_ACCESS
    
    ' Get a handle to the printer.
    If OpenPrinter(sPrnName, hPrinter, pd) Then
        ' Get number of bytes requires for
        ' PRINTER_INFO_2 structure
        Call GetPrinter(hPrinter, 2&, 0&, 0&, nSize)
        ' Create a buffer of the required size
        ReDim bPrinterInfo2(1 To nSize) As Byte
        ' Fill buffer with structure
        lResult = GetPrinter(hPrinter, 2, bPrinterInfo2(1), _
            nSize, nSize)
        ' Copy fixed portion of structure
        ' into VB Type variable
        Call CopyMemory(pi2, bPrinterInfo2(1), Len(pi2))        ' Get number of bytes requires for
        ' DEVMODE structure
        nSize = DocumentProperties(0&, hPrinter, sPrnName, _
            0&, 0&, 0)
        ' Create a buffer of the required size
        ReDim bDevMode(1 To nSize)        ' If PRINTER_INFO_2 points to a DEVMODE
        ' structure, copy it into our buffer
        If pi2.pDevMode Then
            Call CopyMemory(bDevMode(1), ByVal pi2.pDevMode, Len(dm))
        Else
            ' Otherwise, call DocumentProperties
            ' to get a DEVMODE structure
            Call DocumentProperties(0&, hPrinter, sPrnName, _
                bDevMode(1), 0&, DM_OUT_BUFFER)
        End If        ' Copy fixed portion of structure
        ' into VB Type variable
        Call CopyMemory(dm, bDevMode(1), Len(dm))
        With dm
            ' Set new orientation
            Select Case strPaperSize
                Case "A3"
                    .dmPaperSize = DMPAPER_A3
                Case "A4"
                    .dmPaperSize = DMPAPER_A4
            End Select
            .dmOrientation = eOrientation
            .dmFields = DM_ORIENTATION + DM_PAPERSIZE
        End With
        ' Copy our Type back into buffer
        Call CopyMemory(bDevMode(1), dm, Len(dm))
        ' Set new orientation
        Call DocumentProperties(0&, hPrinter, sPrnName, _
            bDevMode(1), bDevMode(1), DM_IN_BUFFER Or _
            DM_OUT_BUFFER)        ' Point PRINTER_INFO_2 at our
        ' modified DEVMODE
        pi2.pDevMode = VarPtr(bDevMode(1))
        ' Set new orientation system-wide
        lResult = SetPrinter(hPrinter, 2, pi2, 0&)        ' Clean up and exit
        Call ClosePrinter(hPrinter)
        SetDefaultPrinterOrientation = True
    Else
        SetDefaultPrinterOrientation = False
    End IfEnd Function
'做如此调用:
'SetDefaultPrinterOrientation 2, "A4" '其中第一个参数表示横式或者纵式

Answer 1

***************打印机***************************
取得打印机:
If Printers.Count < 1 Then
    MsgBox "系统没有安装打印机！", vbCritical, App.Title
    Unload Me
    Exit Sub
End IfDim Prns As Printer
For Each Prns In Printers
    List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0设定默认打印机:
Set Printer = Printers(List1.ListIndex)

Answer 2

设置打印机赞同李洪根的方法。
只想说一句，用HP6L打印机时，即使你能用代码设成A3大小，实际也不能打印呀，为什么要这样呢？

Answer 3

victorycyz(中海）
我设A3大小的纸不是为了打印，
而是为了显示A3 大小的 DATAREPORT。

Answer 4

lihonggen0(李洪根,用.NET，标准答案来了) 
请问能不能设置默认打印机时直接给打印机名？
不用INDEX号？

Answer 5

李洪根，你给的代码不管用，
我试过了。
无法把EPSON LQ1600K打印机设置成默认打印机。
也无法显示A3大小的DATAREPORT。
认能帮帮我，
这个难度这么大吗？

Answer 6

to ： luosidao(螺丝刀) (
Printers是一个所有打印机的集合Set Printer = Printers(Index)    '你只需要改index值就可以改变打印机详细用法你可以看MSDN

Answer 7

http://www.dapha.net/down/list.asp?id=1336

Answer 8

微软的答案：http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q167735你看了就知道了！

Answer 9

to: lihonggen0(李洪根,用.NET，标准答案来了) 
我试过改变
Set Printer = Printers(Index)    
里的值，可是不关用。

Answer 10

http://www.dapha.net/down/list.asp?id=1336原码下不了啊
要什么钱？

Answer 11

http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767微软的代码，用它就可以