Default Printer...

Hejsa... Hurtigt Spørgsmål

Jeg har en form1 med en list1 og en command1.

list1 henter sine .additem fra en .INI fil, jeg vil gerne have at når jeg makerer en Printer i listen og trykker på command1 så bliver printer installeret og vælgt som Standard Printer.

----Code----

Dim Prog(20), progsti(20) As String
Dim n As Integer


Private Sub Form_Load()

Open App.Path & "\printer.ini" For Input As #1
  Do While EOF(1) = False
        Line Input #1, Prog(n)
      Line Input #1, progsti(n)
      List1.AddItem Prog(n)
    n = n + 1
  Loop
Close #1

End Sub


Private Sub Command1_Click()

Set WshNetwork = CreateObject("WScript.Network")

PrinterPath = progsti(List1.ListIndex, 1)
PrinterDriver = list1.Text
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter = progsti(List1.ListIndex, 1)


End Sub

Nogle der har ide hvad der går galt....

Min Printer.ini fil ser sådan ud....

Epson FX-880 - Serverrum
\\NAT\Epson FX-880 - Serverrum
Epson FX-880 - 1 sal
\\NAT\Epson FX-880 - 1 sal
HP LaserJet 6P - Serverrum
\\NAT\HP LaserJet 6P - Serverrum
Brother HL-1240 - 1 sal
\\NAT\Brother HL-1240 - 1 sal

Anders - ICQ 25069426