Página 1 de 1

Imprimir dados de listview

Enviado: Seg Jul 15, 2019 9:08 pm
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

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 9:53 am
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

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 10:08 am
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?

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 10:14 am
por Reinaldo
Não entendi?

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 10:37 am
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...)

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 1:58 pm
por Reinaldo
Continuo sem entender.
PrintPreview "mostra" o layout de impressão, não a planilha objeto de sua imagem.

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 2:11 pm
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.

Re: Imprimir dados de listview

Enviado: Ter Jul 16, 2019 2:52 pm
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