Fóruns
Microsoft Excel - 2...
Formulários
Como imprimir formu...
 
Notifications
Clear all

Como imprimir formulario, e não os botões de comando

 
Formulários
Post Recente por Artepedras 11 anos atrás
3 Posts
2 Usuários
0 Reactions
752 Visualizações
RSS
 Artepedras
(@artepedras)
Posts: 2
New Member
Topic starter
 

Consegui um código para o botão imprimir, e deu certo.

Private Sub CommandButton_Impressora_Click()
CommandButton_Impressora.Visible = False
Recibo.PrintForm
CommandButton_Impressora.Visible = True

End Sub

Ocorre que nos outros botões não consegui fazer que fiquem ocultos na impressão,
OBRIGADO!

 
Postado : 01/04/2014 7:48 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se entendi, é só utilizar a mesma lógica que fez com o Botão "CommandButton_Impressora":

Na rotina :
Private Sub CommandButton_Impressora_Click()
CommandButton_Impressora.Visible = False
CommandButton_Outro.Visible = False
CommandButton_Outro1.Visible = False
CommandButton_Outro2.Visible = False
Recibo.PrintForm
CommandButton_Impressora.Visible = True
CommandButton_Outro.Visible = True
CommandButton_Outro1.Visible = True
CommandButton_Outro2.Visible = True

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/04/2014 8:06 pm
 Artepedras
(@artepedras)
Posts: 2
New Member
Topic starter
 

Valeu Mauro de certo, estava colocando de forma errada o codigo, mas com sua dica ficou perfeito!

Obrigado Ninja

 
Postado : 02/04/2014 6:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico