[VB6] Standaard Printer via code veranderen

[Verwijderd]

Momenteel ben ik een programma bezig aan het uitwerken waarbij ik een printer die etiketten kan afprinten en een gewone printer heb.
De standaardprinter staat altijd op de gewone printer.
Graag had ik geweten hoe ik de etiketten printer via code op standaard kan plaatsen en na het afdrukken de gewone printer op standaard plaatsen.
Het is de bedoeling dat de gebruiker deze niet aanpast via het dialoogvenster Print, maar dat dit automatisch gebeurt a.h.v code.

Bij vroegere topics had ik gezien dat je:
Set Printer = Printer(1)
kunt gebruiken, met 1 als index, maar hoe kun je weten welke index een printer heeft?

[Super_ik]

mischien heeft die printer wel properties, jaaaaaaaaah
drivername is er 1 van, hoera!
en ook nog devicename, joehoe!!

[ Voor 22% gewijzigd door Super_ik op 30-10-2004 09:55 ]

[Woudloper]

Zo'n stuk code is naar mijn weten heel goed terug te vinden op VBNet. Dit is een verzamelwebsite met allemaal voorbeelden van VB en jou situatie komt mij heel bekend voor...

En ja, daar is een voorbeeld te vinden:

Changing the Default Printer on Windows NT/2000

[ Voor 28% gewijzigd door Woudloper op 30-10-2004 09:56 ]

[Kuhlie]

Visual Basic:

Dim p as Printer
For each p in Printers
  if p.devicename = "jouwprinter" then 
    set printer = p
  end if
next

Veel plezier!

[Verwijderd]

Kuhlie schreef op 30 oktober 2004 @ 10:42:

Visual Basic:

Dim p as Printer
For each p in Printers
  if p.devicename = "jouwprinter" then 
    set printer = p
  end if
next

Veel plezier!

Aah, hartelijk bedankt. Code werkt perfect, ik had een klein probleem met .devicenaam om dat ik niet wist hoe je deze eigenschap moest gebruiken, de set printer was ik vergeten.
Maar nu werkt het perfect