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