ActiveReportにて印刷を行うと、「給紙トレイの設定サイズと違う用紙がセットされています」のエラーがでる (ID:103378)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

API/定数の宣言です。

Private Const PD_PRINTSETUP     As Long = &H40
Private Const GMEM_MOVEABLE     As Long = &H2
Private Const GMEM_ZEROINIT     As Long = &H40
Private Const GHND              As Long = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
Private Const DM_OUT_BUFFER     As Long = 2

Private Declare Function OpenPrinter _
                Lib "winspool.drv" _
                Alias "OpenPrinterA" _
                (ByVal pPrinterName As String, _
                 phPrinter As Long, _
                 ByVal pDefault As Long) As Long

Private Declare Function ClosePrinter _
                Lib "winspool.drv" _
                (ByVal hPrinter As Long) As Long

Private Declare Function DocumentProperties _
                Lib "winspool.drv" _
                Alias "DocumentPropertiesA" _
                (ByVal hwnd As Long, _
                 ByVal hPrinter As Long, _
                 ByVal pDeviceName As String, _
                 ByVal pDevModeOutput As Long, _
                 ByVal pDevModeInput As Long, _
                 ByVal fMode As Long) As Long

Private Declare Function GlobalLock Lib "kernel32" _
                (ByVal hMem As Long) As Long

Private Declare Function GlobalUnlock Lib "kernel32" _
                (ByVal hMem As Long) As Long

Private Declare Function GlobalAlloc Lib "kernel32" _
                (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

Private Declare Function GlobalFree Lib "kernel32" _
                (ByVal hMem As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
                Alias "RtlMoveMemory" _
                (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Type typPRINTDLG
        lStructSize         As Long
        hWndOwner           As Long
        hDevMode            As Long
        hDevNames           As Long
        hdc                 As Long
        Flags               As Long
        nFromPage           As Integer
        nToPage             As Integer
        nMinPage            As Integer
        nMaxPage            As Integer
        nCopies             As Integer
        hInstance           As Long
        lCustData           As Long
        lpfnPrintHook       As Long
        lpfnSetupHook       As Long
        lpPrintTemplateName As Long
        lpSetupTemplateName As Long
        hPrintTemplate      As Long
        hSetupTemplate      As Long
End Type

Private Declare Function PrintDlg _
                Lib "comdlg32.dll" _
                Alias "PrintDlgA" _
                (pPrintdlg As typPRINTDLG) _
                As Long

Private Const CCHDEVICENAME As Long = 32
Private Const CCHFORMNAME   As Long = 32

Private Type typDEVMODE
        dmDeviceName        As String * CCHDEVICENAME
        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 * CCHFORMNAME
        dmUnusedPadding     As Integer
        dmBitsPerPel        As Integer
        dmPelsWidth         As Long
        dmPelsHeight        As Long
        dmDisplayFlags      As Long
        dmDisplayFrequency  As Long
End Type

←解決時は質問者本人がここをチェックしてください。

戻る