Notifications
Clear all

OCULTAR A PLANILHA

3 Posts
2 Usuários
0 Reactions
1,095 Visualizações
 luli
(@luli)
Posts: 18
Active Member
Topic starter
 

Boa tarde a todos!

Tenho uma planilha com um userform

Quando inicio a planilha a rotina chama meu userform e a plan fica invisivel deixando somente o userform

Mas quando preciso imprimir preciso que minha plan volte e após a impressão ele oculte novamente, deixando somente o userform aparente,

a não ser se de de imprimir com a plan oculta assim resolveria meu problema... segue o codigo que uso hoje, e em anexo estou enviando a planilha para testes,

codigo:

Application.Visible = True  ' traz a plan 
                                                                
                                                                
                                                                Dim IMPRI As Worksheet
                                                                Set IMPRI = Worksheets("Papel_de_Medidas")
                                                                Range("B2").Select
                                                                
                                                                If cx_nome_cliente.Value = "" Then
                                                                MsgBox " SELECIONE ALGUM NOME e GERE ORÇAMENTO PARA PODER IMPRIMIR!", , ""
                                                                Exit Sub
                                                                End If
                                                                Plan24.Select
                                                                Range("B2").Select
                                                                
                                                                    C_AGENDA_DE_MEDIDAS.Hide
                                                                    Application.Dialogs(xlDialogPrintPreview).Show
                                                                   C_AGENDA_DE_MEDIDAS.Show
                                                                   
 '   Sheets("Papel_de_Medidas").Quit >>>>>>>>>testei não funcionou
 Exit Sub
                                                               
                                                                
  '  Sheets("Papel_de_Medidas").Visible = False  >>>>>>>> testei não funcionou


se alguém puder me ajudar, a fazer funcionar agradeço...

atenciosamente,

 
Postado : 20/07/2016 1:48 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Tentei abrir o arquivo mas nao funcionou.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 20/07/2016 5:25 pm
 luli
(@luli)
Posts: 18
Active Member
Topic starter
 

Bom dia,
Aqui esta abrindo normalmente, mas pelo codigo acima consegue me orientar oque devo fazer para abrir o formulário com a plan oculta e quando for imprimir consiga fazer impressão normalmente, sem precisar expor a plan ou se abrir a planinha logo após aimpressão oculte novamente...

att,

 
Postado : 21/07/2016 6:14 am