buenas tengo esta macro:

Sub ImpSeleccion() 'Impresion de seleccion

With ActiveSheet.PageSetup

  .PrintArea = ""

  .Orientation = xlLandscape 'xlPortrait

  .PaperSize = xlPaperLetter 'formato carta

  .BlackAndWhite = False 'incluir colores o no

  .FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)

  .FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)

  .CenterHorizontally = False 'centrar horizontalmente

  .CenterVertically = False 'centrar verticalmente

End With[/CODE]

esta macro imprime una seleccion de una hoja

con estas caracteristias

orientacion horizontal

papel tamaño carta

margen 1cm

en blanco y negro

aplico la macro a un boton, el asunto es que no me imprime me tira error 400

esto es lo que hago selecciono el area a imprimir y presiono el boton imprimir, me lanza error 400

encontre el problema no tenia conectado la impresora XD, como puedo impedir que me lance ese error?

como puedo agregar la vista previa de la impresion? a la macro?