MACRO IMPRIMIR EN BLANCO Y NEGRO

[antoniopitu]

Hola aqui os dejo esta macro a ver si alguien puede ponerla para que siempre imprima en blanco y negro.

Sub Imprimir()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Macro Antonio]

.

Worksheets("Sheet1").PageSetup.BlackAndWhite = True

.

 

[antoniopitu]

Antonio por favor como seria entonces la formula que tendría que poner.

 

[segu]

Creo que podría funcionar así ... no tengo impresora, pero la vista previa, sí que lo hace, imprime la hoja activa.

Es solo una idea ...

Sub Imprimir()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[antoniopitu]

Muchas gracias Segu es lo que estaba buscando, lo único que he echo retocar el zoom y ponerlo a 65 pero va de maravilla, gracias a todos un saludo.