Excel Visualizar e depois imrimir, excel 2003 e 2007

[Bikke]

Boa noite

 

Preciso de ajuda para uma situação.

 

Tenho uma planilha que após introduzir os dados na Aba Registar, clico depois num botão para imprimir, mas, antes de imprimir, deverá aparecer uma MsgBox a perguntar se quero visualizar a planilha Imprimir que se encontra oculta, ( isto serve para corrigir as margens se for necessário ), se eu clicar no Sim, a planilha Imprimir aparecerá pre visualizada, se eu clicar em Não, deverá aparecer outra MsgBox a a perguntar se eu quero Imprimir.

 

Se eu clicar em Sim dessa MsgBox, a planilha Imprimir, será imprimida, se eu clicar em Não, a impressão será cancelada, e volta à planilha Registar, e a planilha Imprimir volta a ficar oculta.

 

Outra situação é, e se for possivel, claro: Quando a planilha estiver a ser pre visualizada, quando eu clicar em: Fechar a Pré-visualização conforme está na imagem com o Nº 1, então, fecha a Pré-visualização e imprime a planilha Imprimir e depois volta a ocultar a planilha Imprimir

 

A planilha já tem algum códgo VBA no Module3.

 

Obrigado desde já.

 

Cumprimentos

Imprimir folha oculta.xls

[Bikke]

Depois de muito pesquisar na net, e de fazer alguns testes e ajustes, consegui o que pretendia.

 

Assim, deixo aqui para quem precisar.

 

Spoiler

Sub Imprimir()

Dim R As String
Dim stDocName As String

Sheets("Imprimir").Visible = True
Sheets("Imprimir").Select
ActiveWindow.SelectedSheets.PrintPreview
    
R = MsgBox("  QUER IMPRIMIR A FOLHA ????" & Chr(13) & _
vbLf & "                             " & _
vbLf & "   VERIFIQUE O PAPEL NA SUA IMPRESSORA!!", vbYesNo + vbInformation, "Lisboa")
    If R = vbNo Then
    MsgBox "Impressão Cancelada!!", vbInformation, "Lisboa.."
    
    Sheets("Imprimir").Visible = False
    ActiveSheet.Protect 123456 '* altere a senha AQUI
    Sheets("Registar").Select
    
    Exit Sub
    End If
    
impr:  ' para poder imprimir
     ActiveWorkbook.Unprotect "123456"
 Sheets("Imprimir").Visible = True
 Worksheets("Imprimir").PrintOut Copies:=1, Collate:=True
 Sheets("Imprimir").Visible = False

ActiveSheet.Protect 123456 '* altere a senha AQUI
Sheets("Registar").Select

End Sub

 

Cumprimentos