Option Explicit
 
Private Sub Command1_Click()
Dim phPrinter As Long
Dim pDefault As PRINTER_DEFAULTS
Dim pDevMode As devMode
Dim pi2 As PRINTER_INFO_2
Dim dm As devMode
 
pDefault.pDevMode = pDevMode
pDefault.DesiredAccess = PRINTER_ACCESS_ADMINISTRATOR
 
  Debug.Print "o" & OpenPrinter(Printers(3).DeviceName, phPrinter, pDefault)
  Dim size As Long
  Dim bytesUsed As Long
 
 
' erstmal die größe holen (Buffer wird nicht direkt angelegt, daher erstmal die 
' wirkliche größe holen ;-)
Call GetPrinter(phPrinter, 2, ByVal 0&, 0, size)
ReDim Buffer(0 To size - 1) As Byte
 
' hier nochmal aufrufen und die Daten holen
Call GetPrinter(phPrinter, 2, Buffer(0), size, bytesUsed)
Call CopyMemory(pi2, Buffer(0), Len(pi2)) ' und ab damit in die Lokale kopie 
' -> schwups
 
 
' leider nur ein pointer auf die DevStruktur
m_pi2.pDevMode = pi2.pDevMode
 
' Aber dann holen wir uns halt die Daten selber -> DevMode füllen
Call CopyMemory(dm, ByVal m_pi2.pDevMode, Len(dm))
 
' änder was geändert werden muß
dm.dmPrintQuality = DMRES_LOW
 
' jezt wieder zurück damit...
Call CopyMemory(ByVal m_pi2.pDevMode, dm, Len(dm))
 
' und setzen....
Call SetPrinter(phPrinter, 2, pi2, 0&)
 
 
ClosePrinter phPrinter
End Sub

Gru?

Ralf

Option Explicit
Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" ( _
  ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As _
Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination _
As Any, Source As Any, ByVal Length As Long)
 
Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" ( _
  ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command _
  As Long) As Long
Public 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 Long
 
' Print qualities
Public Const DMRES_DRAFT = (-1)
Public Const DMRES_LOW = (-2)
Public Const DMRES_MEDIUM = (-3)
Public Const DMRES_HIGH = (-4)
 
 
Public 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
 
' struktur um die Daten sichtbar zu machen ' look and feel ;-)
Public Type PrinterInfo2
   pServerName As String
   pPrinterName As String
   pShareName As String
   pPortName As String
   pDriverName As String
   pComment As String
   pLocation As String
   pDevMode As Long 'DEVMODE
   pSepFile As String
   pPrintProcessor As String
   pDatatype As String
   pParameters As String
   pSecurityDescriptor As Long 'SECURITY_DESCRIPTOR
   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
 
' Struktur um die daten von Windows zu holen
Public 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 'DEVMODE
   pSepFile As Long
   pPrintProcessor As Long
   pDatatype As Long
   pParameters As Long
   pSecurityDescriptor As Long 'SECURITY_DESCRIPTOR
   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
 
Public Const PRINTER_ACCESS_ADMINISTRATOR = &H4  'Nur Administartor zugriff
Public Const PRINTER_ACCESS_USE = &H8  'Standard zugriff, nur Drucken
Public Const PRINTER_ALL_ACCESS = &HF000C  'Voller zugriff zur Synchronisation
 
Public Type PRINTER_DEFAULTS
   pDatatype As String
   pDevMode As devMode
   DesiredAccess As Long
End Type
 
Public m_pi2 As PrinterInfo2

Gru?

Ralf