Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Imprimir Relatórios

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Luciano021273
Colaborador
Colaborador
Mensagens: 59
Registrado em: Ter Mai 31, 2016 3:41 pm

Imprimir Relatórios

Mensagem por Luciano021273 »

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,


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Imprimir Relatórios

Mensagem por netocasaroli »

Sheets("NomeDaPlanilha").Visible=False


Luciano021273
Colaborador
Colaborador
Mensagens: 59
Registrado em: Ter Mai 31, 2016 3:41 pm

Re: Imprimir Relatórios

Mensagem por Luciano021273 »

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<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Imprimir Relatórios

Mensagem por netocasaroli »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
netocasaroli
Consultor
Consultor
Mensagens: 219
Registrado em: Seg Mai 11, 2015 5:24 pm
Localização: Londrina-PR

Re: Imprimir Relatórios

Mensagem por netocasaroli »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder