Objeto Formats????

[galileogali]

Tengo una Hoja1 con muchos colores.
Quiero imprimirla en una impresora que solo admite:Blanco y Negro.

Los colores me molestan porque perjudican la impresion.


Copio la Hoja1 y PasteSpecial Formats en una hojaN Vacia , tambien traslado los anchos de columnas, etc.


Vuelvo a la hoja 1, seleccino y quito transitoriamente los colores.
Imprimo entonces.

Voy a la hojaN copio de nuevo y Paste Special Formats , para devolverle los colores y otros formatos a Hoja1.

Yo pregunto: ¿existe en VBA alguna manera de evitra el Paso por la Worksheet N?

Es decir ¿Existe una VARIABLE, Objeto etc, que pueda almacenar un conjunto de Formatos Ordenados ?, para poder asignarlos?


Gracias.
GALILEOGALI

 

[galileogali]

Respuesta que descarto

No me interesa crear un iARRAY(Range.rows.count -1, Range.columns.count-1) y cargar

For i= 0 to Range.rows.count-1

For j=0 to Range.columns.count -1


iARRAY( i , j ) = cells(m+ i, n + j).Interior.ColorIndex

iARRAY( i , j ) = cells(m+ i, n + j).Font.ColorIndex



next j
Next i


Simple aclaración
bYE

 

[Greg Truby]

¿Usted ya probó eso de hacer un cheq en la cajita de impresión en blanco y negro y no le dio resultados acceptables?

Fuera de esa opción en el diálogo de "setup" de impresión - de lo que me doy cuenta - usted ha cubierto las dos soluciones mejores: copiar solo formatos a una hoja para guardarlos o crear un array de ellos. No me ocurre nada mejor.

 

[galileogali]

Thanks Greg.!!!!

Siempre son más dificiles de emitir las respuestas negativas como en este caso, ya para poder otorgarles valor nada mejor que provengan de alguien que domine una disciplina, como en este caso.

Bueno en principio Gracias: por tu no!!. Me deja mas tranquilo respecto a que no estaba mal encaminado utilizando otra hoja o arrays.

Sin embargo la pregunta prendio otra luz ya que me sugieres las Opciones de Impresion: Blanco y negro.
Francamente: no se me había ocurrido. Sin probarlo aún, creo que si funciona como espero que ocurra, serà esta la mejor SOLUCION.

Gracias.
Hasta pronto

Galileogali