通过api 设置打印机的自定义纸张的尺寸。

xlonger

Public   Enum   PrinterOrientationConstants   
                  OrientPortrait   =   1   
                  OrientLandscape   =   2   
  End   Enum   
  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   Type   
  Private   Const   DMPAPER_A2   =   66   
  Private   Const   DMPAPER_A3   =   8   
  Private   Const   DMPAPER_A4   =   9   
  Private   Const   DMPAPER_A5   =   11   
  Private   Const   DMPAPER_B4   =   12   
  Private   Const   DMPAPER_B5   =   13   
  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   Long   
  Private   Declare   Function   Close

goto2008

能否传个库上来了？？

lxf0304

dcxxxxx

ylqtz

ding

elong

ding