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

Imprimir dados de listview

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Diego Shimizu
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Jul 12, 2019 2:44 pm

Imprimir dados de listview

Mensagem por Diego Shimizu »

Pessoal, boa noite.

Estou abrindo um novo tópico para esclarecer a dúvida postada no tópico abaixo:

https://www.tomasvasquez.com.br/forum/v ... dfc#p27481

Quando seleciono o item que desejo imprimir e clico no botão "Imprimir", a tela com as opções de impressão é exibida no fundo do userform, deixando o arquivo "congelado". Alguém poderia me ajudar com situação?

Segue link do arquivo: https://drive.google.com/file/d/1MEU5sv ... sp=sharing


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Imprimir dados de listview

Mensagem por Reinaldo »

Experimente ocultando temporariamente o userform e depois o reexibindo
inclua as linhas me.hide e me.show conforme abaixo

Código: Selecionar todos

        Next a
    Me.Hide
            Sheets("Impressão").Range("A1:J" & Count + 1).PrintPreview
    End If
 Me.Show
Exit Sub


Diego Shimizu
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Jul 12, 2019 2:44 pm

Re: Imprimir dados de listview

Mensagem por Diego Shimizu »

Obrigado Reginaldo, é quase isso.
Visto que o cabeçalho da tabela está configurado para ficar oculto por padrão, existe um comando para exibi-lo somente na tela de impressão e após ocultá-lo novamente?


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Imprimir dados de listview

Mensagem por Reinaldo »

Não entendi?


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.


Diego Shimizu
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Jul 12, 2019 2:44 pm

Re: Imprimir dados de listview

Mensagem por Diego Shimizu »

Por padrão, minhas planilhas do Excel estão definidas para ocultar a faixa de opções e comandos (Vide imagem anexa).

Ao clicar em imprimir, a janela de visualização é exibida com esta barra oculta. Eu teria que exibi-la manualmente para obter acesso as configurações de impressão, o que não é uma grande dificuldade. Porém, visto que este documento será utilizado por outras pessoas, algumas com conhecimento mais limitado que o meu (rsrsrsrs), existe um modo de a janela de visualização de impressão ser aberta já com a faixa de opções e comandos visível? (Não sei se ficou claro...)
Anexos
Excel.png
Excel.png (54.86 KiB) Exibido 4318 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Imprimir dados de listview

Mensagem por Reinaldo »

Continuo sem entender.
PrintPreview "mostra" o layout de impressão, não a planilha objeto de sua imagem.


Diego Shimizu
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sex Jul 12, 2019 2:44 pm

Re: Imprimir dados de listview

Mensagem por Diego Shimizu »

Bom, vamos lá.

Minha planilha está configurada para não exibir os menus. Com isso, quando a printpreview exibe o documento que mandei imprimir, os menus de opção ficam ocultos. Para que sejam exibidos, eu preciso habilitar manualmente a exibição do menu de comandos. Quando faço isso, a tela do printpreview exibe os comandos. O que quero é uma função para fazer essa exibição por meio de macro, e não manualmente. Abaixo, imagens da tela do printpreview pra exemplificar.

Caso entenda que a opção print é mais interessantes, inclusive com a opção de selecionar a impressora deseja, poderá aplicá-la também.
Anexos
Sem título.png
Sem título.png (25.71 KiB) Exibido 4306 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Imprimir dados de listview

Mensagem por Reinaldo »

Código: Selecionar todos

        Next a
    Me.Hide
            Application.DisplayFullScreen = False
            Sheets("Impressão").Range("A1:J" & Count + 1).PrintPreview
    End If
            Application.DisplayFullScreen = True
Me.Show
Exit Sub


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