Fóruns
Microsoft Excel - 2...
Formulários
Ajuda com visualiza...
 
Notifications
Clear all

Ajuda com visualizar impressão

 
Formulários
7 Posts
2 Usuários
0 Reactions
1,485 Visualizações
RSS
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Olá pessoal,

tempo q não dava as caras por aqui... :lol:

preciso da seguinte ajuda,

tenho um form que utilizo minha programação, quando a pessoa acessa ele, ela não tem acesso a planilha pois inseri um código para que a planilha ficasse invisivel e podendo somente o meu form ficar visível...

meu problema é; que estou aderindo ao meu form um botão para visualização de uma aba da minha planilha, que seria o código abaixo... mas quando fecho a visualização ele fecha toda minha planilha, ao invés de voltar para o meu form atual.

abaixo é o código para visualizar...

frmFiltro.Hide
Worksheets("estoque").PrintPreview

End Sub

preciso aderir ao código que ao fechar a minha planilha ele retorne para meu frmfiltro, que no caso coloquei ele no modo Hide.

 
Postado : 06/02/2014 10:20 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como última linha: 

frmFiltro.Show
 
Postado : 06/02/2014 10:43 am
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Não dá José... não sei se tem haver por conta do código que utilizo para salvar a planilha e mante-la invisível...

Private Sub Workbook_Activate()
Application.Visible = False
frmLogon.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save
End If

End Sub

 
Postado : 06/02/2014 10:50 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tentou colocar uma condição, quando fechar sua visualização ocultar o arquivo e mostrar o Userform?

Att

 
Postado : 06/02/2014 12:15 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma vez que está ocultando o app ao iniciar a planilha, no botão que está utilizando para visualizar a impressão coloque desta forma :

Private Sub CommandButton1_Click()
    'Oculta o Form
    frmFiltro.Hide
    
    'Reexibe o App
    Application.Visible = True
    
    'Visualiza Impressão
    Worksheets("estoque").PrintPreview
    
    'Oculta o App ao fechar a visualização
    Application.Visible = False
    
    'Reexibe o Form
    frmFiltro.Show

End Sub

Faça o teste e veja se é isto.
[]s

 
Postado : 06/02/2014 12:21 pm
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Boa Mauro!

Perfect..

 
Postado : 06/02/2014 4:01 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 06/02/2014 4:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico