|
Hi
Ich habe ein Array mit 29 Sheet,
Das Makro skalliert mir die Sheets auf eine Seite und stellt dann eine Vorschau her dann drucke ich Sie.
Jetzt ist es aber so das nicht immer alle 29 Sheet erzeugt werden je nach Daten eben manchmal eben nur 15 manchmel eben die 29.
Der Code funktioniert auch nur eben nicht wenn nur die 15 vorhanden sind.
Mir ist klar das VBA nicht weiss was es tun soll wenn nicht alle Sheets im Array real da sind, nur wie kann ich das lösen anbei der Code.
Sub Verteiler_drucken()
Dim myArr
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")
Application.PrintCommunication = False
For i = 0 To UBound(myArr)
With Sheets(myArr(i)).PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Next
Application.PrintCommunication = True
Sheets(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")).Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Gruß
Markus
|