X6 - Problme bei Ebenen steuern (Dokumentgitter)....

[koter]

Hallo norre,

das "Private" kannst du löschen, das bedeutet nur, dass kein anderes Modul darauf zugreifen kann.

Die Zeile: If lyr.Name = "Gitter" Then
Muss bei X6 also If lyr.Name = "Dokumentgitter" Then lauten.

wenn die Ebene "Dokumentgitter" bei Dir nicht druckbar ist, kann ja nichts passieren, weil das Makro die Ebene auf nicht druckbar stellt und und das ist sie ja dann schon.

Falls Du probieren willst ob das Makro Bei Dir funktioniert, "lyr.Printable = False" auf "lyr.Printable = True" setzen.
Dann sollte die Ebene "Dokumentgitter" druckbar sein.

Danach musst Du "lyr.Printable = False" setzen und das Makro erneut ausführen.
Dann sollte die Ebene "Dokumentgitter" nicht druckbar sein.

Gruß

Koter