Option Explicit
Sub Verteiler_drucken()
Dim myArr, i
myArr = Array("SAM ", "HAUS", "RO ", "TROS", "SRE", "WEX", "LOP", "LOB", "BIX", "SW", "DG ", "DM" _
, "SB_M+R", "DG _M+R", "DM_M+R", "SAM_X ", "HAUS_X", "RO _X", "TROS_X", "SRE_X", "WEX_X", "LOP_X", "LOB_X", "BIX_X")
Dim IstArr(), x
For i = 0 To UBound(myArr)
If IsIt(myArr(i)) Then
ReDim Preserve IstArr(0 To x)
IstArr(x) = myArr(i)
x = x + 1
End If
Next i
'Debug.Print Join(IstArr, Chr(10))
'Rest mit dem neuen Array
Application.PrintCommunication = False
For i = 0 To UBound(IstArr)
With Sheets(IstArr(i)).PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Next
Application.PrintCommunication = True
Sheets(IstArr()).Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Function IsIt(ByVal strN As String) As Boolean
Dim oWsh As Worksheet
For Each oWsh In Worksheets
If strN = oWsh.Name Then
IsIt = True
Exit Function
End If
Next oWsh
End Function
|