Este fórum está sendo desativado

[kalebe]

Bom dia amigos.

Preciso de uma macro para que ao apertar ( CTRL P) o conteudo da celula C17 da PLAN1 fique "invisivel" na impressão, porém sem que seja apagado essa informação da planilha.

[mprudencio]

Pq ocultar o valor?

Não seria mais simples colocar o valor fora da area de impressão?

[kalebe]

Seria possivel no momento que fosse imprimir a fonte se definida como "branco" e apos a impressão retornar a cor original.

[mprudencio]

Tente assim!!

Sub Imprimir()

Dim W As Worksheet

Set W = Sheets("Planilha1") 'Troque para o nome da sua planilha

W.Range("C17").Font.ColorIndex = 2
Application.Dialogs(xlDialogPrintPreview).Show
W.Range("C17").Font.ColorIndex = 1

End Sub

[kalebe]

Gratidão MPRUDENCIO em resposta ao código enviado pelo amigo. Funcionou.

Obrigado.