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. Seguir leyendo... sobre Elegir impresora