Página 1 de 1

Imprimir e Ocultar a plan

Enviado: 20 Jul 2016 às 16:53
por Luciano021273
Boa tarde a todos!

Tenho uma planilha com um userform

Quando inicio a planilha a rotina chama meu userform e a plan fica invisivel deixando somente o userform

Mas quando preciso imprimir preciso que minha plan volte e após a impressão ele oculte novamente, deixando somente o userform aparente,

a não ser se de de imprimir com a plan oculta assim resolveria meu problema... segue o codigo que uso hoje, e em anexo estou enviando a planilha para testes,

codigo:

Application.Visible = True ' traz a plan


Dim IMPRI As Worksheet
Set IMPRI = Worksheets("Papel_de_Medidas")
Range("B2").Select

If cx_nome_cliente.Value = "" Then
MsgBox " SELECIONE ALGUM NOME e GERE ORÇAMENTO PARA PODER IMPRIMIR!", , ""
Exit Sub
End If
Plan24.Select
Range("B2").Select

C_AGENDA_DE_MEDIDAS.Hide
Application.Dialogs(xlDialogPrintPreview).Show
C_AGENDA_DE_MEDIDAS.Show

' Sheets("Papel_de_Medidas").Quit >>>>>>>>>testei não funcionou
Exit Sub


' Sheets("Papel_de_Medidas").Visible = False >>>>>>>> testei não funcionou



se alguém puder me ajudar, a fazer funcionar agradeço...

atenciosamente,

Imprimir e Ocultar a plan

Enviado: 21 Jul 2016 às 10:57
por leonardoleoni
Olá, bom dia.

Já testou ThisWorkbook.Windows(1).Visible = False ?

Imprimir e Ocultar a plan

Enviado: 21 Jul 2016 às 13:49
por Luciano021273
Boa tarde,
ainda não testei, o numero 1 entre () se refere a plan?
usaria true antes do comando impressão e false no final?
vou testar... Obrigado!