Ich möchte mehrere Excel-Sheets drucken.

Dazu habe ich die sheets markiert und den Druckdialog aufgerufen.

Sheets(Array("Parameterübergabe", "Anfahren", "Hochschalten", "Rückschalten", "Bericht")).Select
SendKeys "^" & "p"

Hat bisher gut funktioniert. Nun will ich jedes Sheets einzeln schützen, wenn es activiert wird und wieder freigeben, wenn es deactiviert wird. Das muß ich so machen, da ich nicht in die Sheets schreiben kann, wenn diese dauerhaft geschützt sind.

Private Sub Worksheet_Activate()
Application.DisplayAlerts = False
With Worksheets("Start")
.EnableSelection = xlNoSelection
.Protect
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayAlerts = True
With Worksheets("Start")
.EnableSelection = xlNoRestrictions
.Unprotect
End With
End Sub


Jetzt funktioniert aber das markieren nicht mehr. Es sieht so aus, als wenn das Markieren des ersten Sheets die Schutz-Funktion startet und das Markieren der anderen Sheets verhindert.


Wie kann ich dem Druckdialog sagen, welche Sheets gedruckt werden sollen?

Halllo pp_mark,

das folgenden klappt in Excel 97 problemlos, egal, ob das Sheet geschützt ist oder nicht.

<pre>Dim arrWks() As Worksheet
Dim i As Long
ReDim arrWks(1 To 2) As Worksheet
Set arrWks(1) = ActiveWorkbook.Worksheets("Tabelle2")
Set arrWks(2) = ActiveWorkbook.Worksheets("Tabelle3")
For i = LBound(arrWks()) To UBound(arrWks())
arrWks(i).PrintOut
Next i</pre>

Gruß Markus