Makro und Vista
14.02.2008 12:47:00
horst
bin neu hier im Forum und komme gleich mit einem Problem.
Habe folgendes makro erstellt:
Sub Rechnung_Dauercamper_drucken()
' Rechnung_Dauercamper_drucken Makro
ActiveSheet.Unprotect
Range("A19:A35").Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 2
Range("A7").Select
Selection.Font.ColorIndex = 2
Selection.Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
:=True
Range("A19:A35").Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Range("A7").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Und nun zu meinem Problem.
Wenn ich das Makro unter Windows XP aufrufe, läuft es einwandfrei.
Wenn ich aber auf meinem zweiten Rechner mit Windows Vista starte, bekomme ich
fehlerhafte Anzeigen auf dem Bildschirm und es wird nicht gedruckt.
Liegt es an Vista ? Wenn ja, welche Befehle muss ich wie ändern ?
Vielen Dank im Voraus
Gruss Horst
Anzeige