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
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
SIIIII perfecto gracias mil
un abrazo
jesús
Jesus Martinez Plantarosa