6.2.5 Wie kann man die installierten Drucker auslesen?
Die API bietet dafür keine Funktion.
Unter Windows kann man selber die Registry auslesen.
Ich habe hier ein kleines Programm das unter Windows 2000/XP die Drucker mit Hilfe regedit und einem Shellaufruf die Drucker ausliest.


sub ZeigeAlleDrucker
  shell("regedit /e c:\printer.txt 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices'",10)
  wait 2000
  zaehler=0
  ende=false
  Dim myPrinter(20)
  #iNumber = Freefile
  aFile = "c:\printer.txt"
  Open aFile For Input As #iNumber
  On Error Goto schluss
  While not eof(#iNumber)
  Line Input #iNumber, sZeile
  start=left(sZeile,1)
  if start="""" then
       ipos=InStr(sZeile,"""=")
       myprinter(zaehler)=mid(szeile,2,ipos-2)
       zaehler=zaehler+1
   end if
  wend
  Close #iNumber
  schluss:
  for i=0 to zaehler-1
    msgbox myprinter(i)
  next i
end sub
Seitenanfang