Elegir impresora

3 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Elegir impresora

Hola amig@s:

Tengo el siguiente código:

Sub IMPRIMIR()

'
    Estilo2 = vbYesNo + vbQuestion + vbDefaultButton2
    Ayuda2 = "DEMO.HLP"
    Ctxt2 = 1000

'
    Respuesta2 = MsgBox("¿ imprimir ?", Estilo2, "Impresión", Ayuda2, Ctxt2)
        If Respuesta2 = vbYes Then
       ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Else
  '  none
   
    End If

End Sub

Pero como haria para elegir otra impresora asi como se hace con : ctrl+p , pero enlasarla a mi macro.

Saludos

Jesús


 

Etiquetas: 

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: Elegir impresora

 

Prueba esto

Sub IMPRIMIR()

'
    Estilo2 = vbYesNo + vbQuestion + vbDefaultButton2
    Ayuda2 = "DEMO.HLP"
    Ctxt2 = 1000

Application.Dialogs(xlDialogPrint).show 
    Respuesta2 = MsgBox("¿ imprimir ?", Estilo2, "Impresión", Ayuda2, Ctxt2)
        If Respuesta2 = vbYes Then
       ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Else
  '  none
   
    End If

End Sub

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: Elegir impresora

SIIIII perfecto gracias mil

un abrazo

jesús

Jesus Martinez Plantarosa