seleccionar impresora

trojangirl
14 de Julio del 2004
hola!! Como puedo hacer para desde visual basic 6 mostrar el cuadro de dialogo imprimir para seleccionar la impresora??
gracias

sdemingo
14 de Julio del 2004
Hola,

te paso un ejemplo para seleccionar la impresora de un list
Necesitas agregar al proyecto para el ejemplo: Un botón llamado Command1 y un listbox llamado List1

Private Sub Command1_Click()
Dim p As Printer

If List1.SelCount = 1 Then
For Each p In Printers
If List1.List(List1.ListIndex) = p.DeviceName Then
Set Printer = p
Exit For
End If
Next p
Else
MsgBox "Debe seleccionar una impresora"
End If

End Sub

Private Sub Form_Load()
Dim p As Printer

For Each p In Printers
List1.AddItem p.DeviceName
Next p

End Sub

Una vez hecho eso tendrás seleccionada como impresora por defecto la que hayas seleccionado de la lista.

salu2
sdemingo
http://boards.melodysoft.com/sdemingo
http://boards.melodysoft.com/capoeira-madrid