一个打印问题，绝对难题！！！！！！！！

Fanks(凡可) ( ) 不行啊，paperheight:错误，未找到方法或数据成员，

Printer.PaperSize = 256'设置纸张为自定义纸张
Printer.Height = 9.3 * 567'设置纸张的高度
Printer.Width = 18.9 * 567'设置纸张的宽度

Fanks(凡可) ( ) 不行啊， PaperSize:错误无效属性值，不会你那里可以通过吧，！！！

你说的是datareport,他说的printer对象，不能混在一起。

修改打印的默认属性，最简单的方法是用commondialog，PrinterDefault设为true。程序退出时用代码改回来。
这方法在win98，winme Epson 1600K上通过。
问题是在win2000中不知怎样改打印的默认属性，commondialog，PrinterDefault设为true也不行。
我win2000连接的打印机是联想的激光打印机。

如果你指显示的纸张大小，就设置报表.Height和报表.Width，如果指打印出的纸张就用上面的方法，如果用后两句确定纸张大小第一句则无用，请去掉。

DataReport显示出来时，下面是一块白色区域，我现在就是要改变他的大小！以下是我用上面说的方法，在DataReport Show前作的工作：Printer.Height = 1000 '设置纸张的高度
Printer.Width = 2000 '设置纸张的宽度
这两个我试过，不行，DataReport1.ReportWidth = 2000DataReport1.Width = 2000这两个我试过，不行，我把上面的都试了，就是不行
help me

打印出来的纸张大小。设置Pinter的height，Width，报表.Height和报表.Width都没对预览页面大小无影响。
NT和2000打印机默认值没法改。不知碰过没有？

改变打印纸张大小。
在代码中加入DataReport1.ReportWidth = ，DataReport1.Width = ，语句，DataReport1.show以后用debug.print查看它们不是设定的值。报表大小不能小于纸张大小。

要想实现自定义纸张，
方法一
手工将windows的默认纸张设置为自定义纸张。（WIN98和WINNT40，WIN2000中均可设置。
方法二
用API可以实现，但在WINNT40中不起作用，在WIN98和WIN2000中工作正常。

????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????vvv

请建一个文本文件QTInvoice.lic
内容如下：Copyright (c) 2002 DragonflyWarning: This product is licensed to you pursuant to the terms of the
license agreement included with the original software, and is
protected by copyright law and international treaties. Unauthorized
reproduction or distribution may result in severe civil and criminal
penalties, and will be prosecuted to the maximum extent possible under
the law.

ji_hui(阿辉) 大哥
不行啊，什么都显示不出来？？

将下面的代码放在模块中，再用如下格式调用（即可设置纸张大小，也可设置方向横和竖）
SetDefaultPrinterOrientation 2, "A4"Option Explicit
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

ji_hui(阿辉)
没有提示，只是什么东西都没有，看不见，
qhzxcz(audio) 你那个怎么调用啊

SetDefaultPrinterOrientation 2, "A4"

to vxhelp(我是第一万个BUG
调用格式：
SetDefaultPrinterOrientation 2, "A4"
其中2代表横式，如用1表示纵式，a4代表纸张的大小规格，也可以选"A3",
但不能达到长宽任意定义

调用：  SetDefaultPrinterOrientation 2, 4000, 3000
2是指设为纵式，相应的则为横式
4000是指将长设为：4000
3000是指将宽设为：3000 将下面的代码放在模块中
Option Explicit
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 DM_PaperLength = &H4
Private Const DM_PaperWidth = &H8&
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 strPaperLength As Integer, ByVal strPaperWidth As Integer) As Boolean
    'eOrientation:方向
    'strPaperLength:长
    'strPaperWidth:宽
    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
           .dmPaperSize = 0
           .dmPaperLength = strPaperLength
           .dmPaperWidth = strPaperWidth
           .dmOrientation = eOrientation
           .dmFields = DM_ORIENTATION + DM_PAPERSIZE + DM_PaperLength + DM_PaperWidth
        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 If
End Function

请给 qhzxcz(audio) 加分吧

你用的是WIN2000吗？
那个控件是在WIN2000下开发的。你注册成功了吗？
是否在控件栏有一个OCX图标？

调试易

一个打印问题，绝对难题！！！！！！！！

解决方案 »