Edmaxy,

Boa tarde!

Para ficar mais fácil lhe ajudar, anexe um modelo compactado!

Att,

Pelo que vi na rotina, você quer imprimir somente a Aba "Relatorio", se for isto, não precisa fazer o Loop de verificação entre todas as abas (For Each sh In ActiveWorkbook.Worksheets), orientamos direto na rotina, faça o teste com o código abaixo e qualquer duvida retorne.

Veja que deixei comentado no código quanto ate qual Coluna pretende imprimir, na rotina esta até a coluna "E", se for diferente, ajuste na seguinte linha: Prt_Range = "A1:E" & UltLin

Private Sub Label9_Click()
    Dim Prt_Range
    Dim UltLin As Long
    Dim sPrintSimNao   As Integer
    
    'Definimos a aba que queremos
    Dim shRelatorio As Worksheet
    Set shRelatorio = Worksheets("Relatorio")
    
    'Verifica a Ultima linha preenchida
    UltLin = shRelatorio.Cells(Rows.Count, "A").End(xlUp).Row

    'Define o Range preenchido
    'Aqui estamos definindo ate a Coluna "E" - ajuste se for mais ou menos
    Prt_Range = "A1:E" & UltLin
    
    'Definimos a àrea de Impressão
    shRelatorio.PageSetup.PrintArea = Prt_Range
    
    sPrintSimNao = MsgBox("Deseja continuar com a Impressão das Fichas ?", vbYesNo, "Alerta")
        
    'Se SIM Imprime
    If sPrintSimNao = vbYes Then
            shRelatorio.PrintOut

            
        'Oculta o Form
        UserForm1.Hide
   
    Else
        'Se NAO - Sai da Rotina
        Exit Sub
    End If
   
    'Reexibe o App
    Application.Visible = True
    
    'Visualiza Impressão
    shRelatorio.PrintPreview
    
    'Oculta o App ao fechar a visualização
    Application.Visible = False
    
    'Reexibe o Form
    UserForm1.Show
    
End Sub

[]s

Olá Mauro,

Deu certo sim a rotina, está perfeita.

Obrigado pela atenção e ajuda.

*Obrigado Marciel pela intenção.

Edmaxy.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.