Rückgängig per Makro
26.02.2003 12:03:48
Jörg
ich will eine Arbeitsmappe über Button drucken, vorher aber die Zellhintergründe ausblenden, um die Lesbarkeit sicher zustellen. So sieht der Quelltext jetzt aus:
Private Sub CommandButton2_Click()
Dim f As String
f = MsgBox("Drucken?", vbOKCancel, "Druckauftrag")
If f = vbCancel Then
Exit Sub
Else
Cells.Select
Selection.Interior.ColorIndex = xlNone
Sheets("Daten").Select
ActiveWindow.SelectedSheets.PrintOut
:?:?:?:?
End If
End Sub
Nun soll aber noch die Änderung der Hintergünde wieder rückgäng gemacht werden. Oder gibt es einen Weg den Ausdruck gleich ohne Hintergründe zu starten?
VD
Jörg
Anzeige