Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Imprimir Relatórios
-
- Colaborador
- Mensagens: 59
- Registrado em: Ter Mai 31, 2016 3:41 pm
Imprimir Relatórios
Boa noite,
Alguns dias atras pedi ajuda para poder imprimir meus relatórios, porque quando dava o clik para imprimir meu formulario sumia, porque estava usando
Application.Visible = false, ao carregar os userform, e o professor deu a dica para usar Application.Visible = True para poder aparecer os formulários, blz deu certo, mas eu queria que aparecesse somente na hora da impressão e apos usar a impressora minha planilha sumisse novamente, então tentei ao abrir o fomulário colocar Application.Visible = True e após a impressão Application.Visible = false e dei exit sub , parar por ali só que não funcionou depois que uso a impressão minha planilha fica exposta...
como faço para quando for imprimir aparecer meu relatório de impressão e após imprimir minha plan ficar oculta novamente???
atenciosamente,
Alguns dias atras pedi ajuda para poder imprimir meus relatórios, porque quando dava o clik para imprimir meu formulario sumia, porque estava usando
Application.Visible = false, ao carregar os userform, e o professor deu a dica para usar Application.Visible = True para poder aparecer os formulários, blz deu certo, mas eu queria que aparecesse somente na hora da impressão e apos usar a impressora minha planilha sumisse novamente, então tentei ao abrir o fomulário colocar Application.Visible = True e após a impressão Application.Visible = false e dei exit sub , parar por ali só que não funcionou depois que uso a impressão minha planilha fica exposta...
como faço para quando for imprimir aparecer meu relatório de impressão e após imprimir minha plan ficar oculta novamente???
atenciosamente,
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
-
- Colaborador
- Mensagens: 59
- Registrado em: Ter Mai 31, 2016 3:41 pm
Re: Imprimir Relatórios
Bom dia, Neto!
Segue o codigo de como estou fazendo, mas não deu certo ainda,
Dim IMPRI As Worksheet
Set IMPRI = Worksheets("Papel_Orçamento")
Range("B2").Select
If cbPesqNomeCliente.Value = "" Then
MsgBox " SELECIONE ALGUM NOME e GERE ORÇAMENTO PARA PODER IMPRIMIR!", , ""
Exit Sub
End If
Plan13.Select
Sheets("Papel_Orçamento").Visible = True<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
E_NEGOCIAÇÃO.Hide
Application.Dialogs(xlDialogPrintPreview).Show
E_NEGOCIAÇÃO.Show
Sheets("Papel_Orçamento").Visible = False<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Segue o codigo de como estou fazendo, mas não deu certo ainda,
Dim IMPRI As Worksheet
Set IMPRI = Worksheets("Papel_Orçamento")
Range("B2").Select
If cbPesqNomeCliente.Value = "" Then
MsgBox " SELECIONE ALGUM NOME e GERE ORÇAMENTO PARA PODER IMPRIMIR!", , ""
Exit Sub
End If
Plan13.Select
Sheets("Papel_Orçamento").Visible = True<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
E_NEGOCIAÇÃO.Hide
Application.Dialogs(xlDialogPrintPreview).Show
E_NEGOCIAÇÃO.Show
Sheets("Papel_Orçamento").Visible = False<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Imprimir Relatórios
Bom dia Luciano,
Desculpe a demora no retorno. Andei meio ocupado (em excesso)...
Anexe seu modelo aqui no fórum, por gentileza, para que possamos avaliar melhor a situação.
Desculpe a demora no retorno. Andei meio ocupado (em excesso)...
Anexe seu modelo aqui no fórum, por gentileza, para que possamos avaliar melhor a situação.
- netocasaroli
- Consultor
- Mensagens: 219
- Registrado em: Seg Mai 11, 2015 5:24 pm
- Localização: Londrina-PR
Re: Imprimir Relatórios
Bom dia Luciano,
Desculpe a demora no retorno. Andei meio ocupado (em excesso)...
Anexe seu modelo aqui no fórum, por gentileza, para que possamos avaliar melhor a situação.
Desculpe a demora no retorno. Andei meio ocupado (em excesso)...
Anexe seu modelo aqui no fórum, por gentileza, para que possamos avaliar melhor a situação.