Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão imprimir invi...
 
Notifications
Clear all

Botão imprimir invisível

 
2024 - VBA & Macros
Post Recente por JNEXCEL 7 anos atrás
7 Posts
3 Usuários
0 Reactions
1,338 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Boa tarde!

Por favor, alguém poderia me auxiliar nesse caso?

Minha planilha possui um botão IMPRIMIR EM PDF, porém, quando o usuário clica no botão: CLIQUE AQUI PARA SALVAR EM PDF, a macro vai salvar essa tela em um documento no formato PDF (salva na área de trabalho), porém quando o documento é aberto aparece o botão.

Eu gostaria de saber se é possível gerar o documento em PDF, sem o botão.

Quando o usuário clicar no botão e abrir o documento em PDF, só vão estar as colunas e as informações digitadas (não vai aparecer o botão).

Não posso usar o botão Definir área de impressão, pois os dados da planilha são variáveis :

pode ter 100 linhas ou apenas 10 .

muito obrigado pela atenção de todos.

 
Postado : 09/01/2018 8:50 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Bom dia!

segue conforme pedido....

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/01/2018 9:19 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Era isso mesmo que eu precisava, muito obrigado!

Apenas uma dúvida, quando eu estiver com mais botões posso fazer assim:

Private Sub CommandButton1_Click()
    Dim cb As Object
    Set cb = CommandButton1;CommandButton2;CommandButton3;CommandButton4;CommandButton5;CommandButton6;CommandButton7
    cb.Visible = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersFiscalDesktopLISTA DE PRODUTOS.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        cb.Visible = True
    Range("B6").Select

End Sub
 
Postado : 09/01/2018 10:15 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Não. mas pode fazer assim:

Private Sub CommandButton1_Click()
    Dim cb As Object
    Set cb = [Plan1].Shapes.Range(Array("CommandButton1", "CommandButton2", "CommandButton3"))
    cb.Visible = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersFiscalDesktopLISTA DE PRODUTOS.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
        cb.Visible = True
    Range("B6").Select

End Sub

Exemplifiquei até o commandButton3, mas pode inserir quantos quiser..
Ah! e se a resposta te atendeu, por favor, não deixe de marcar como Resolvido. Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/01/2018 10:29 am
 Osvaldomp
(@osvaldomp)
Posts: 858
Prominent Member
 

alternativa ~~~> em Propriedades do botão desmarque Imprimir objeto

obs. a opção Imprimir objeto pode ser desmarcada ao criar cada botão ~~~> clique com o direito sobre o botão / Propriedades

Osvaldo

 
Postado : 09/01/2018 11:12 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Bem mais simples hein Osvaldo! hehe

 CommandButton1.PrintObject = False

vlw!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/01/2018 12:38 pm
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

muito obrigado

 
Postado : 09/01/2018 12:59 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico