wiedermal eine Frage bzgl. VBA.
Ich habe in meiner Datei ein Tabellenblatt "Drucken", auf dem ich mehrere Buttons platziert habe, mit denen verschiedene Blätter der Datei gedruckt werden.
Mit nachfolgendem Code wird ein Blatt auf zwei verschiedenen Drucker ausgedruckt, wobei der zweite Ausdruck den Vermerk "-Kopie-" erhält. Beim anschließenden Entfernen des Vermerkes erhalte ich dann die Fehlermeldung 400. Wenn ich ein Activate vorschalte, dann wird der Vermerk gelöscht, ich erhalte aber dennoch die Fehlermeldung.
Kann mir jemand verstehen helfen und wie ich das abfangen kann?
Sub printDichtheitspruefung()
Application.ActivePrinter = "\\SERVER\OKI C5950 auf Ne06:"
Sheets(Array("Deckblatt_Dicht", "Dichtheitsnachweis")).PrintOut Copies:=1, Collate:=True
Sheets("Empfangsbestätigung").PrintOut Copies:=1, Collate:=True
Sheets("Dichtheitsnachweis").Range("H5").FormulaR1C1 = "' - K O P I E -"
Application.ActivePrinter = "\\SERVER\Brother MFC-8880 auf Ne03:"
Sheets("Dichtheitsnachweis").PrintOut Copies:=1, Collate:=True
'Sheets("Dichtheitsnachweis").Activate
Sheets("Dichtheitsnachweis").Range("H5").ClearContents
End Sub
MfGTobias