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