Сетка как печатный слой (X4)

[Nikityan]

Порой приносят макеты, в которых сетка каким-то чудесным образом включена для печати. Что разумеется тут же вызывает проблемы при отправке на печать данных файлов. Побеждается путем копирования содержимого макета в новый файл.

В общем то интересно, каким-таким образом некоторые личности умудряются включить печать для невключаемого для печати слоя «сетка»?

Может быть тому виной более ранние версии corel'а в которых когда-то давно делался макет, но проверить нет возможности.

Кто сталкивался, проясните пожалуйста. Посмотреть вложение 123.zip

 

[lev]

Ответ: Сетка как печатный слой (X4)

Лень разбираться, кто чего нажал.
Отключить печатаемость всех сеток на мастерстранице независимо от их имени можно простеньким макросом:

Sub Unprintable_grid()
  For Each l In MasterPage.Layers
    If l.IsGridLayer Then l.Printable = False
  Next l
End Sub

 

[bogdog]

Ответ: Слой Grid. Печатаемый, нередактируемый

Подскажите пожалуйста, я правильно понял?
создаю новый макрос, в нем прописываю:

Sub Unprintable_grid()
For Each l In MasterPage.Layers
If l.IsGridLayer Then l.Printable = False
Next l
End Sub

далее открываю проблемный файл и запускаю макрос?
При запуске выдает ошибку "object required"

 

[lev]

Ответ: Слой Grid. Печатаемый, нередактируемый

Вместо MasterPage можно написать Pages(0) - должно помочь для старых версий CorelDRAW, в который ещё не было объекта MasterPage

Sub Unprintable_grid()
  Dim l As Layer
  For Each l In Pages(0).Layers
    If l.IsGridLayer Then l.Printable = False
  Next l
End Sub

 

[bogdog]

Ответ: Слой Grid. Печатаемый, нередактируемый

Первый вариант пробовал в Х5.
Второй попробовал в 12 версии - "compile error: sub or function not defined"

 

[Fog_patch]

Ответ: Слой Grid. Печатаемый, нередактируемый

Sub Unprintable_grid()
ActiveDocument.MasterPage.GridLayer.Printable = False
End Sub

 

[lev]

Ответ: Слой Grid. Печатаемый, нередактируемый

До 12 в тестах не опускался
В 12 заработал (у меня ) вариант с поимённым отключением печати слоёв.

Sub Unprintable_grid()
  For Each l In Pages(0).Layers
    If l.Name = "Сетка" Or l.Name = "Grid" Then 'учёт вариантов имени
      l.Printable = False
    End If
  Next l
End Sub

 

[bogdog]

Ответ: Слой Grid. Печатаемый, нередактируемый

Sub Unprintable_grid()
ActiveDocument.MasterPage.GridLayer.Printable = False
End Sub

этот сработал!
всем спасибо за помощь

 

[bogdog]

Ответ: Слой Grid. Печатаемый, нередактируемый

До 12 в тестах не опускался
В 12 заработал (у меня ) вариант с поимённым отключением печати слоёв.

Sub Unprintable_grid()
  For Each l In Pages(0).Layers
    If l.Name = "Сетка" Or l.Name = "Grid" Then 'учёт вариантов имени
      l.Printable = False
    End If
  Next l
End Sub

а в 12 снова "compile error...", ладно обойдемся

 

[glugoff]

Не по теме:
Было в Х6, Х7. Создаю вторую страницу, там появляется сетка. И она НИКАК не отключается для печати и экспорта. Решил не решать, а просто создавать новый документ