Installierte Drucker auslesen - Problem

[olek]

Hallo,

Habe folgendes um meine Drucker aufzulisten:

Private Sub Drucker()
Dim X%, AA$

For X = 0 To Printers.Count - 1
AA = Printers(X).DeviceName
AA = AA & Space$(35 - Len(AA)) & Printers(X).Port
ListView1.ListItems.Add AA
Next X
End Sub

Nach mehreren Versuchen gelingt es mir nicht den Fehler zu finden.
Es kommt andauernd die Meldung:
"Invalid Procedur call or argument"

Cya Alex

 

[NRFi]

Hi,

folgende Zeile hat ein Problem:

AA = AA & Space$(35 - Len(AA)) & Printers(X).Port


und das immer, wenn 35 - len(AA) < 0 ist, also wenn len(AA) größer als 35 ist. Da musst du aufpassen. Wenn du das mit Space rausnimmst und zb " " einfügst, geht es, dann gibt es aber einen TypeMissmatchfehler, weil du AA bei ListView1.Add dem Index zuweist. Musst da also

ListView1.ListItems.Add , , AA

machen.


Gruß, NRF