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

[koter]

Hallo Norre,

Danke für den Test!

Ich bin gerade im Corel-Forum auf diesen Beitrag gestoßen.

Dort wurde das Problem mit einem Makro gelöst, das nicht über das GridLayer-Objekt geht, sondern die Ebene (den Layer) über den Namen anspricht.

Dort steht:

The Grid layer name has changed in X6. Only change one needs to do is :

If lyr.Name = "Document Grid" Then

And its done in X6

In der deutschen X4 lautet der Name "Gitter" (der Name steht im Objektmanager).
der Code muss dann also so aussehen:

Code:

Private Sub GridNoPrint()

    Dim doc As Document
    Dim lyr As Layer
    
    Set doc = CorelDRAW.ActiveDocument
    
    For Each lyr In doc.MasterPage.Layers
        If lyr.Name = "Gitter" Then
        lyr.Printable = False
    End If
    Next

End Sub

Vielleicht hilft das Matze, bis seine EDV-Kollegen das Update gemacht haben.