Declare Function LlGetPrinterFromPrinterFile Lib "CMLL13.DLL" Alias _
  "_LlGetPrinterFromPrinterFileA@32"
 (ByVal hJob As Long, 
  ByVal nObjType As Long, 
  ByVal pszObjectName As String, 
  ByVal nPrinter As Long,
  ByVal pszPrinter As String,
  pnPrinterBufSize As Long,
  pDevMode As DEVMODE,
  pnDevModeBufSize As Long)
As Long

pDM: Zeiger auf einen Puffer, in dem die DEVMODE-Struktur des Druckers abgelegt
wird. Wenn pDM NULL ist und pnSizeDm nicht NULL ist, wird die Größe des
benötigten Platzes in *pnSizeDm gespeichert.

pnSizeDm: Puffergröße des Bereichs, auf den pDM zeigt

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 Long ' Basic Win32 definition had an error here!
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
 End Type

Argumenttyp ByRef unverträglich.

 Dim pDMBuffer as DEVMODE
 Dim pDMBufferSize as Long
 pDMBufferSize = Len(pDMBuffer)