Hallo,

vielleicht hilft dieser VBA-Code weiter?

Sub Komplette_Mappe_Drucken()
 
    'Fenster Druckerwahl einblenden
    Application.ScreenUpdating = False
    Dim blnHidden As Boolean
    Dim wrks(2) As String
    Dim iWrk As Integer

    Dim Druckerwahl
    Dim rng As Range
    Dim n As Integer
    Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
    If Druckerwahl = False Then Exit Sub
        
    wrks(0) = "Barauslagen Proviant"
    wrks(1) = "Barauslagen Schiff"
    wrks(2) = "Kasse"
    
    For iWrk = 0 To UBound(wrks)
        Set rng = ThisWorkbook.Worksheets(wrks(iWrk)).Range("B8:B49")
        Application.ScreenUpdating = False
        'Leere Zeilen in Spalte B suchen und komplette Zeilen ausblenden
        If Not blnHidden Then
            blnHidden = True
            For n = 1 To rng.Rows.Count
                If Application.CountA(rng.Rows(n)) = 0 Then rng.Rows(n).Hidden = blnHidden
            Next
            For n = 1 To rng.Columns.Count
                If Application.CountA(rng.Columns(n)) = 0 Then rng.Columns(n).Hidden = blnHidden
            Next
        Else
            blnHidden = False
            rng.Rows.Hidden = blnHidden
            rng.Columns.Hidden = blnHidden
        End If
    Next
 
    'Alle Blätter auswählen
    Sheets().Select
 
    'Ausgewählte Blätter drucken
    ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
     
    'Ausgeblendete Zeilen wieder einblenden
    Einblenden wrks
     
    'Zurück zu Blatt "Kasse" gehen
    Sheets("Kasse").Select
     
    Application.ScreenUpdating = True
 
End Sub

Sub Einblenden(wrks() As String)
    Dim rng As Range
    Dim iWrk As Integer
    
    For iWrk = 0 To UBound(wrks)
        With ThisWorkbook.Worksheets(wrks(iWrk))
            For Each rng In .UsedRange.Columns
                rng.Hidden = False
            Next
            For Each rng In .UsedRange.Rows
                rng.Hidden = False
            Next
        End With
    Next
End Sub

Kleine Anmerkung:

Im VBA-Code ist eine for-Next-Schleife integriert worden, die alle drei Worksheets nacheinander abarbeitet.

LG, BigBen