Hallo,

es liegt an der VAriable blnHidden.

Beim ersten Durchlauf wird diese auf WAHR gesetzt. Dadurch werden bei allen nachfolgenden Durchläufen in den Tabellen alle unsichtbare Zellen wieder eingeblendet.

Wenn die Variable blnHidden ganz weggelassen wird, funktioniert es, wie erwartet:

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

LG, BigBen