Notifications
Clear all

Imprimir e Ocultar a plan

2 Posts
2 Usuários
0 Reactions
952 Visualizações
(@luc1-2)
Posts: 0
New Member
Topic starter
 

Bom dia!

A um tempo atras precisei de ajudar para a questão de impressão...

O problema é: quando abro minha planilha excel com codigo vba ela oculta a planilha e exibe o formulário, uso a o próprio excel como banco de dados, só que quando vou imprimir se a plan não ficar visível o código de impressão não carrega, então gentilmente o professor Rafael Monteiro, me ajudou para a questão atual. Oque ele fez ele criou uma condição para quando chamar a impressão abrisse a plan em questão e apos a impressão voltasse a ficar oculta, para aquela plan funcionou, só que não consegui ajustar para as próximas fiquei me batendo colocando em varias alturas o codigo e não consegui adaptar nas outras, por esse motivo venho até o forum com as planilhas em anexo, e peço aos professores que analisem, oque posso fazer em cada uma para ter o mesmo efeito de abrir meu formulário com a plan, oculta consiga imprimir e quando acabar de imprimir oculte novamente, são 3 plan em questão >>>>>FICHA DE CLIENTES >>>> OBEJETO DO CONTRATO >>>> MOVIMENTO DE CAIXA >>> Elas estão em anexo

caso alguém não tenha entendido, estou a disposição e muito interessado em resolver este problema, conto com a ajudar de todos...

atenciosamente,

a condição que o professor Rafael sugeriu foi esta: se possivel analisar se consigo usar nas outras plan's...

' FOI NECESSÁRIO CRIAR UMA CONDIÇÃO PARA HAVER UMA VERIFICAÇÃO ANTES DE INICIAR O CÓDIGO DE IMPRESSÃO
If Application.Visible = False Then
Application.Visible = True
End If

' DEIXA A PLANILHA VISIVEL PARA IMPRESSÃO
Application.Visible = True

'*** DEIXA A PLANILHA INVISIVEL SE NÃO SELECIONAR AILGUM NOME PARA GERAR PAPEL DE MEDIDA
Application.Visible = False

 
Postado : 05/08/2016 7:41 am
(@mprudencio)
Posts: 0
New Member
 

Depois dessa linha

Application.Visible = True

Coloque

Sheets("Plan1").Printout

Troque Plan1 pelo nome da planilha a ser impressa.

 
Postado : 05/08/2016 10:29 am