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,