Seleccionar impresora sin usar CmDialog


Si bien el uso del diálogo común torna a toda aplicación Windows mas estándar en algunas aplicaciones específicas como puntos de facturación, control de existencias y demás la selección de la impresora por medio de esas paletas se torna inapropiada. Con este pequeño y compacto código podemos seleccionar la impresora activa sin el uso de los mencionados menúes.

Crear una lista llamada Impresoras y en el formulario copiar:

Impresoras.Clear
For t = 0 To Printers.Count - 1
    Impresoras.AddItem Printers(t).DeviceName
    Impresoras.ItemData(Impresoras.NewIndex) = t
    Next t
Impresoras.ListIndex = 0