Já tentou...

SendKeys "{ESC}"

Já tentou...

SendKeys "{ESC}"

Digito onde esta linha?
no formulário, em um módulo ou na própria planilha?

Bom dia!!

Tenta inserir em módulo Editor VB
http://www.jorgepaulino.com/2011/09/exc ... as-de.html

Att

Bom dia!!

Tenta inserir em módulo Editor VB
http://www.jorgepaulino.com/2011/09/exc ... as-de.html

Att

Coloquei o código em um Módulo, mas não tive êxito:

Sub Workbook_Close()

SendKeys "{ESC}"
Application.Visible = False
frm_Imprimir.Show

End Sub

Onde foi que errei o código?

Boa tarde!!

Você está pedindo para fechar o arquivo e mostrar um objeto que está dentro desse arquivo que você fechou eu hen....

Não sei o que você quer!

Insira esse código dentro de um módulo, ao executar esconderá o arquivo e mostrará o Userform

Sub InsiraDentroModulo()
SendKeys "{ESC}"
Application.Visible = False
frm_Imprimir.Show
End Sub

Att

Boa tarde!

É isso mesmo, alexandrevba. Quero esconder a minha aplicação e Exibir somente o Form.

Acontece assim:
Quando clico para abrir o meu documento, a minha aplicação dica invisível e mostra o meu form (menu do meu controle de estoque) -
o mesmo tem vários botões: para cadastro exclusão, entrada e saída, impressão, dentre outros...

Quero esse código porque quando eu clico em 'Impirmir', a minha aplicação fica visível, claro. Senão, não seria possível visualizá-la.
Só que, quando clico em 'Fechar visualização de impressão', a minha aplicação - planilha, fica visível também, podendo o usuário fazer alterações.

Por isso, quero um código para quando o usuário clicar em 'fechar visualização de impressão', a minha aplicação fique invisível e retorne ao formulário frm_imprimir.

Ok?

Boa tarde!

É isso mesmo, alexandrevba. Quero esconder a minha aplicação e Exibir somente o Form.

Quero esse código porque quando eu clico em 'Impirmir', a minha aplicação fica visível, claro. Senão, não seria possível visualizá-la.
Só que, quando clico em 'Fechar visualização de impressão', a minha aplicação - planilha, fica visível também, podendo o usuário fazer alterações.

Por isso, quero um código para quando o usuário clicar em 'fechar visualização de impressão', a minha aplicação fique invisível e retorne ao formulário frm_imprimir.

Ok?

Roberto, é necessário abrir a Visualização de Impressão ?
Você pode Imprimir direto, sem passar por Visualizar a Impressão, ou ter de exibir a aba que está sendo impressa.

Não sei como está a sua rotina para Imprimir, mas se utilizar Application.screenupdate=False a planilha não é exibida, isto se estiver utilizando PrintOut e não PrintPreview.

[]s

Boa tarde!

É isso mesmo, alexandrevba. Quero esconder a minha aplicação e Exibir somente o Form.

Quero esse código porque quando eu clico em 'Impirmir', a minha aplicação fica visível, claro. Senão, não seria possível visualizá-la.
Só que, quando clico em 'Fechar visualização de impressão', a minha aplicação - planilha, fica visível também, podendo o usuário fazer alterações.

Por isso, quero um código para quando o usuário clicar em 'fechar visualização de impressão', a minha aplicação fique invisível e retorne ao formulário frm_imprimir.

Ok?

Roberto, é necessário abrir a Visualização de Impressão ?
Você pode Imprimir direto, sem passar por Visualizar a Impressão, ou ter de exibir a aba que está sendo impressa.

Não sei como está a sua rotina para Imprimir, mas se utilizar Application.screenupdate=False a planilha não é exibida, isto se estiver utilizando PrintOut e não PrintPreview.

[]s

Boa noite, Mauro, obrigado pelo teu contato!

É necessário sim a visualização da impressão!

Coloquei dois optionbuttons: em um o usuário imprime direto (PrintOut) e na outra visualiza a impressão (PrintPreview).
Isso é necessário para mostrar ao usuário, as páginas que deseja imprimir.

Então, não tem nenhum código que ao 'fechar a visualização de impressão', retorne ao meu form, escondendo a minha aplicação?

Grato,

Roberto, como eu disse, o ideal seria ter postado sua rotina, a que utiliza para visualização, então segue uma forma básica, veja se consegue adaptar.

Estou supondo que só o aplicativo está oculto e as abas estão Visiveis.

Nesta instrução, está definido os seguintes nomes aos controles:

UserForm1 = frmPrint
OptionButton1 = OptPreview
Sheet a Imprimir = shtPrT (nome da aba PRINT)

Private Sub OptPreview_Click()
    
    'Definimos o tipo
    Dim shtPrT       As Worksheet
    
    'Nome da Aba a Visualizar Impressão
    Set shtPrT = ThisWorkbook.Sheets("PRINT")
            
            'Oculta o Formulário
            frmPrint.Hide
            
            'Exibe a Impressão
            shtPrT.PrintPreview
            
           ' Reexibe o Formulário apos fechar a Visualização
            frmPrint.Show
        
        Set shtPrT = Nothing
        
End Sub

Com certeza você deve estar utilizando a instrução : Application.Visible = False que Oculta o Aplicativo, então você deverá ajustar na rotina acima para que novamente oculte o fechar as visualização.

[]s

Mauro, muito obrigado, cara!

Eu ainda não tinha pensado em colocar um código parecido com este que você postou. Não usei o infrormado por você, usei o appication.visible mesmo, mas ficou do jeito que eu queria.

Agradeço aos outros também.

Agora vou encerrar o tópico.

Até outra oportunidade!