Re: Print Selection
Написал MAPUTO в 22/06/2010 17:03:14
Цитата:
Так вроде должно работать
Тока после этой операции необходимо слои Мастер Пейдж сделать Принтейбл = Фальш
Я вообще в кореле макросы не пишу. В свое время прогал на ВБА. Просто лень разбираться как в кореле пойдет процесс взаимодействия между двумя документами)))
По хорошему, надо бы индексы слоев МастерПейдж заносить в массив и потом в конце программы снова восстанавливать Принтейбл=Тру для соответствующих слоев.
Цитата:
vavalexus пишет:
Dim DefPage As Page, p2 As Page, p1 As Page, m1 As Page
Set m1 = ActiveDocument.Pages(0)
For j = 1 To m1.Layers.Count
If m1.Layers(j).Printable = True Then
m1.Layers(j).Shapes.All.Copy
p2.Layers(j).Paste
m1.Layers(j).Printable = False
End If
Next j
Так вроде должно работать
Тока после этой операции необходимо слои Мастер Пейдж сделать Принтейбл = Фальш
Я вообще в кореле макросы не пишу. В свое время прогал на ВБА. Просто лень разбираться как в кореле пойдет процесс взаимодействия между двумя документами)))
По хорошему, надо бы индексы слоев МастерПейдж заносить в массив и потом в конце программы снова восстанавливать Принтейбл=Тру для соответствующих слоев.
Цитата:
Dim DefPage As Page, p2 As Page, p1 As Page, m1 As Page
Dim MPlayers() As Boolean
Set m1 = ActiveDocument.Pages(0)
For j = 1 To m1.Layers.Count
If m1.Layers(j).Printable = True Then
m1.Layers(j).Shapes.All.Copy
p2.Layers(j).Paste
m1.Layers(j).Printable = False
MPlayers(j)=True
Else
MPlayers(j)=False
End If
Next j
......
For j = 1 To m1.Layers.Count
m1.Layers(j).Printable = MPlayers(j)
Next j
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=105297
