Hola amigos tengo mi reporte que agregue activeprinter.show que me muestra la caja con las impresoras en red el cual al momento de imprimir lo hace, el problema es que cuando doy cancelar no lo hace y me manda la impresión, en el adjunto les detallo mas el problema que tengo es lo ultimo que me falta y solo es una parte de todo el sistema

Se les agradecería cualquier ayuda 

Gracias...

Formato Final.xlsm

Hace 7 horas, lokaso dijo:

el problema es que cuando doy cancelar no lo hace y me manda la impresión

cambia tu macro por algo ± como esto:

Sub selectPrinter()
  Dim activa As String, cambio
  activa = Application.ActivePrinter
  cambio = Application.Dialogs(xlDialogPrinterSetup).Show
  If cambio Then
    ActiveSheet.PrintOut
    Application.ActivePrinter = activa
  Else
    MsgBox "Impresion cancelada !!!"
  End If
End Sub

para tu segunda pregunta:

no creo que puedas "administrar" el proceso de impresión por medio de msgbox'es
(deja que la aplicación lo muestre por sus medios convencionales)

Hola HECTOR MIGUEL,  agregue el codigo que enviastes el cual estubo estupendo ?, justo lo que necesitaba , lo estoy adaptado a mi archivo principal...?, saludos y muchas gracias por el aporte