Actividad pública reciente
Ha valorado "Excelente" la respuesta
No imprimir color de fondo
Private Sub CommandButton1_Click() With Range("A1:D20") 'suponiendo que sea el rango que se imprimira .Font.Color = vbBlack 'letra negra .Cells.Interior.ColorIndex = xlNone 'quita el fondo .PrintOut 'envia a la impresora .Font.Color = vbWhite 'letra...