Boa tarde!!

Tente usar uma célula para fazer a impressão.

O exemplo abaixo é apenas uma ideia.

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
     
    With Plan1 
        If Not .Range("A1").Value > 0 Then 
            Cancel = True 
        End If 
    End With 
     
End Sub 

Ou

Public Sub TesteAleVBA() 
     
    Sheets("Plan1").Select
     
    If Range("A2").Value = 1 Then 
        Sheet("Plan2").PrintOut 
         
        If Range("A3").Value = 1 Then 
            Sheet("Plan3").PrintOut 
             
            If Range("A4").Value = 1 Then 
                Sheet("Plan4").PrintOut 
                 
                If Range("A5").Value = 1 Then 
                    Sheet("Sheet5").PrintOut 
                     
                    If Range("A6").Value = 1 Then 
                        Sheet("Plan6").PrintOut 
                    End If 
                End If 
            End If 
        End If 
    End If 
     

End Sub 

Não sei se entendi corretamente, mas, se for utilizar o botão de impressão direta do menu do excel, você pode utilizar a rotina abaixo:

Sempre que mandar Imprimir, não importando em qual folha estiver será impresso a "Folha 1".

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        
    With ThisWorkbook
        .Worksheets("folha 1").PrintOut
    End With

End Sub

[]s

Não sei se entendi corretamente, mas, se for utilizar o botão de impressão direta do menu do excel, você pode utilizar a rotina abaixo:

Sempre que mandar Imprimir, não importando em qual folha estiver será impresso a "Folha 1".

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        
    With ThisWorkbook
        .Worksheets("folha 1").PrintOut
    End With

End Sub

[]s

Sim era mesmo isso que eu quero sempre que eu mandar emprimir uma folha imprima sempre tambem a folha 1 mas eu adicionei esse codigo e nao esta a dar tenho de meter o codigo para cada folha ou basta meter para o livro todo?
Obrigado

Boa tarde ja resolvi, sempre era simples é masi ao menos isto que eu quero, mas eu espliquei-me mal eu queria que imprimisse a pagina 1 sempre mas na mesma folha por exemplo

na folha 1:
tiago tiago tiago tiago

folha 2:
imprimir imprimir imprimir
as as as as

e ao imprimir na mesma folha estar os 2 :

tiago tiago tiago tiago
imprimir imprimir imprimir
as as as as

Obrigado