llanes
13 de Febrero del 2004

Hola como están ocurre lo siguiente:

necesito es saber como en un reporte de CRYSTALREPORT puedo hacer para que además de aparecerme el botón de exportar y de imprimir me muestre también el botón de escoger la impresora por la cual deseo imprimir, el icono es algo así como una llave de mecanica con un tornillo, se lo describo así pporque es como lo he visto en otros reportes de crystal reports, este botón si no lo tengo tengo que imprimir solamente por la impresora que esté declarada como prdeterminada, pero si quiero imprimir por otra impresora de la red no puedo porque no me permite escoger la impresora por la cual deseo imprimir, ahí es cuando nesecito de este botón del que le hablo.

saludos
llanes

sdemingo
13 de Febrero del 2004

Hola, te paso un código a través del cuel cargas en un combo las impresoras que teines instaladas en tu equipo.
A raíz de ahí solo tienes que seleccionar la que el usuario escoja en el combo y ponerla como imrpesora por defecto para imrpimir

Dim p As Printer

For Each p In Printers
Combo1.AddItem p.DeviceName
Next p
Combo1.Text = Combo1.List(0)

salu2
sdemingo

sdemingo
13 de Febrero del 2004

El código entero
para probarlo necesitas un combobox y un commandbutton

Option Explicit
Dim p As Printer

Private Sub Command1_Click()

Dim pp As Printer

Dim i As Integer

i = 0
For Each p In Printers
If p.DeviceName = Combo1.Text Then
Set pp = Printers(i)
End If
i = i + 1
Next p

'ya tienes seleccionada para
'imprimir la impresora que eligió el usuario en el combo
MsgBox pp.DeviceName

End Sub

Private Sub Form_Load()

For Each p In Printers
Combo1.AddItem p.DeviceName
Next p
Combo1.Text = Combo1.List(0)

End Sub

salu2
sdemingo