Ausgewählte Blätter drucken- mehrere Druckaufträge
31.07.2003 14:20:11
Begges
ich habe ein Problem mit folgendem Code zum Ausdrucken mehrere ausgewählter Blätter:
in einem Blatt stehen 11 Blätter zur Auswahl. Je nachdem ob rechts daneben ja oder nein steht wird der Blattname in den Array gelesen. Der Array wird dann am Ende ausgedruckt.
Das Problem ist, daß hier irgendwie mehrere Druckaufträge entstehen. Beim Drucken auf Papier ist es wurscht, da die hintereinander aus dem Drucken flutschen. Beim Drucken zum PDF-File aber gibst ein Problem, da jetzt mehrere Dateien entstehen. Hat jemand eine Lösung??
For i = 0 To 10
If ActiveCell.Value = "ja" Then
If ActiveCell.Offset(0, -1).Value <> "" Then
ReDim Preserve DruckArray(j)
DruckArray(j) = ActiveCell.Offset(0, -1).Value
j = j + 1
End If
End If
ActiveCell.Offset(1, 0).Select
Next i
Set DruckBlaetter = Worksheets(DruckArray)
DruckBlaetter.Select
ActiveWindow.SelectedSheets.PrintPreview
Vielen Dank
Begges