Este fórum está sendo desativado

[Anne33]

Boa tarde a todos,

Tenho uma planilha que necessito só poder ser impressa em PDF conforme o código abaixo:

Código: Selecionar todos

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\AP -  Aprovação de Pagamento.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True

Como consigo impedir o uso do botão de impressão ou do comando Ctrl+P?

Lembrando que esta planilha estará disponível em rede compartilhada por toda a empresa.

Grata,

Anne

[osvaldomp]

Experimente inserir o seu código que imprime em .pdf no evento BeforePrint no módulo de 'EstaPasta_de_trabalho'

Código: Selecionar todos

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ' seu código
 'se o seu arquivo tem mais de uma planilha talvez precise
 ' acrescentar uma instrução para identificar a planilha a ser impressa
 Cancel = True
End Sub

[Anne33]

Bom dia osvaldomp,

Obrigada pela atenção, porém desta forma o código entra em looping infinito.

Alguma outra opção?

Grata/Anne

[osvaldomp]

Disponibilize uma amostra do seu arquivo com o código instalado (o código que apresentou problema).