VBA-Problem nach Umstellung auf 2010
strodti
gleich vorab: ich habe als Excel-Version Office 2007 angegeben, da Office 2010 nicht in der Auswahlliste erscheint.
Folgendes: Mit Hilfe dieses Forums habe ich unter Excel 2003 den nachstehenden Code zusammengestellt, der auch funktionierte.
Sub drucken()
If Sheets("Tabelle1").Range("A20") = "" Then
MsgBox "Eintrag in Zelle A20 fehlt!"
Else
Application.ActivePrinter = "\\SERVER\OKI C5950 auf Ne09:"
Sheets(Array("Tabelle1", "Tabelle2")).PrintOut Copies:=1, Collate:=True
'temporär Zusätze setzen
Sheets("Tabelle2").Range("E5").FormulaR1C1 = "' - K O P I E -"
Sheets("Tabelle2").Range("E10").FormulaR1C1 = "'Dies ist ein Test:"
Application.ActivePrinter = "\\SERVER\Brother MFC-8880 auf Ne06:"
Sheets("Tabelle2").PrintOut Copies:=1, Collate:=True
Sheets("Tabelle2").Range("E5").MergeArea.ClearContents
Sheets("Tabelle2").Range("E10").FormulaR1C1 = "'Danke:"
End If
End Sub
Im Büro sind wir nun komplett auf Excel 2010 umgestiegen. In Excel 2010 erhalte ich nun die Fehlermeldung "Laufzeitfehler 1004 Die Methode ActivePrinter für das Objekt Application ist fehlgeschlagen".Verstehe ich nicht. Für das Objekt Application wird im Editor die obige Methode angeboten (soweit mein Verständnis).
Ich hatte schon die Idee, einfach den Makrorecorder nochmal aufnehmen zu lassen und ggf. Modifkationen durchzuführen, aber in Excel 2010 wird die Druckeransteuerung nicht mit aufgezeichnet!?
Kann mir vielleicht sagen, was ich ändern muss?
Lieben Gruß und für alle schonmal ein schönes Weihnachtsfest.
Tobias