Speichern/Öffnen/Drucken von Dateien
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
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