[Excel macro] Custom printer dialog

[Telco]

Ik wil graag een printerkeuze meegeven op een dialog in de vorm van een listbox. Het lukt mij echter niet de lijst te vullen met beschikbare printers

Iemand suggesties?

[sanfranjake]

Heb je voor de printers op je werkstation al geinstalleerd?

[Telco]

Als je daarmee bedoeld of de printers op het werkstation zijn geinstalleerd, dan ja. Een combinaite van lokale en netwerk printers. Ik wil in principe de identieke listbox maken als in de standaard printer dialog, maar dan zonder de rest van de keuzes.

[Koen_R]

in de gewone visual basic kan je met printers(x).devicename de namen van al je printers opvragen, wellicht werkt dat ook in VBA?

[Telco]

Ik zou het normaal zo proberen:

code:

dim pPrinter as Printer

for each pPrinter in Printers
   cCombo.addItem pPrinter.devicename
next

het probleemi is dat Excel het Printer(s) object niet kent.

[Lustucru]

dat klopt; je zult aan de slag moeten met de windows-api en EnumPrinters(). Een voorbeeld vind je o.a. hier

[Telco]

Niesje, je bent geweldig. Dank!