Vælg standard printer

Hej isdan,

hvis du har windows scripting host installeret kan du gøre som følger:

Set WshNetwork = CreateObject(\"WScript.Network\")
  Set oDrives = WshNetwork.EnumNetworkDrives
  Set oPrinters = WshNetwork.EnumPrinterConnections
  Debug.Print \"Domain = \" & WshNetwork.UserDomain
  Debug.Print \"Computer Name = \" & WshNetwork.ComputerName
  Debug.Print \"User Name = \" & WshNetwork.UserName
  Debug.Print
  Debug.Print \"Network drive mappings:\"
  For i = 0 To oDrives.Count - 1 Step 2
      Debug.Print \"Drive \" & oDrives.Item(i) & \" = \" & oDrives.Item(i + 1)
  Next
  Debug.Print
  Debug.Print \"Network printer mappings:\"
  For i = 0 To oPrinters.Count - 1 Step 2
      Debug.Print \"Port \" & oPrinters.Item(i) & \" = \" & oPrinters.Item(i + 1)
  Next


  WshNetwork.SetDefaultPrinter \"\\\\Server\\Printername\"


/Jennemaan

Hold da op det var lige det jeg manglede men ikke som VBscript,, Men det skal være VB (ikke script)
Kan du klare det.

ovenstående virker fint i vb...

/Jennemaan

Ja men hvad vis kunden ikke har windows scripting host installeret..

Eller installeres den når mit program bliver installeret hos kunden.

du kan jo altid tilføje den til dit setup script :o)

Den fil du skal tilføje hedder wshom.ocx (ligger i windows system biblioteket)

Alternativt skal du ud i noget api programmering...

/Jennemaan

Jeg har indtil videre kun svaret på 1. spørgsmål:
a = Printer.DeviceName