macro impresion

[aprendiz]

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?

[aprendiz]

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