Notifications
Clear all

Células coloridas saiam transparentes na impressão

4 Posts
3 Usuários
0 Reactions
1,261 Visualizações
(@gmribeiro)
Posts: 0
New Member
Topic starter
 

Boa tarde pessoal,

Como posso fazer para que as células coloridas pela formatação condicional saiam transparentes na impressão?

Obrigada!

 
Postado : 02/07/2015 10:34 am
(@issamu)
Posts: 0
New Member
 

Olá Gmribeiro!
A única forma que visualizo de fazer isso é através de um código em VBA no evento Beforeprint da sua pasta de trabalho.

O que poderia ser feito é você criar uma regra de formatação condicional sem adicionar nenhum tipo de formatação e vinculá-la a uma célula de controle. Por exemplo:
1) Selecione o intervalo onde está a formatação condicional que você não deseja que não apareça na impressão.
2) Adicione uma regra de formatação usando uma fórmula, onde por exemplo, vamos usar a célula A1 como controle, então a fórmula seria: =NÃO($A$1).
3) coloque essa nova regra no topo da lista de formatação condicional e marque a opção "Parar se verdadeiro" e clique OK.

Você pode testar na planilha que a célula A1 estiver vazia ou com valor FALSO, a formatação condicional é aplicada, e se A1 estiver preenchida diferente de FALSO a formatação no intervalo é anulada. Sabendo disso, é hora de montar o código no VBA. Aperte ALT+F11 e vá no módulo da sua pasta de trabalho (EstaPasta_de_Trabalho) e cole o código abaixo:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Range("A1").Value = ""
    Cancel = True
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    Range("A1").Value = " "
End Sub

Dessa forma ao imprimir a formtação é desligada por ativar a regra que criamos, mas após impressão a regra volta ao normal para aparecer a formatação desejada.

Só vejo essa possibilidade...

 
Postado : 02/07/2015 11:56 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Transparente ou preto e branco, não entendi....

 
Postado : 02/07/2015 1:22 pm
(@gmribeiro)
Posts: 0
New Member
Topic starter
 

Olá Issamu!

Obrigada pelo auxílio, o código funcionou parcialmente. Vinculei a formatação à uma célula de dados numéricos que não vou apagar, apenas para não ter que criar uma célula somente para isso. No entanto, após a impressão, a informação dessa célula foi apagada e o preenchimento colorido das outras células não voltou.

 
Postado : 03/07/2015 8:58 am