Erzeugen PrintPreview mit wechselnden Sheets
16.04.2007 13:11:32
Ralf
ich möchte im folgenden eine PrintPreview erstellen, bei der nach Abhängigkeit von den Einträgen immer nur eine Auswahl von Blättern zur Vorschau ausgewählt wird.
Das Problem ist, dass ich bei dem Array zur Auswahl der Sheets einen Laufzeitfehler (9) erzeuge.
Danke und Gruß,
Ralf
Sub Preview()
Dim RangePreview As Variant
For i = 1 To 4
If Sheets("Eingabe").Cells(32 + i, 2).Value 0 And i = 1 Then
RangePreview = "Projekt " & i
End If
If Sheets("Eingabe").Cells(32 + i, 2).Value 0 And i > 1 Then
RangePreview = RangePreview & """" & ", " & """" & "Projekt " & i
End If
Next
If RangePreview = "" Then
Exit Sub
Else
Sheets(Array(RangePreview)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
End If
End Sub