Re: Print Selection
Написал MAPUTO в 22/06/2010 10:37:11
И чего тебя удивляет? В коде слои Master Page вообще не анализируется на Printable.
Цитата:
То же самое надо сделать для ActiveDocument.Pages(0)
Замени p1 на ActiveDocument.Pages(0)
Только лучше всего создавать не новую страницу в документе, а новый документ и из него печатать.
И обращение делать к ним Documents(1) и Documents(2)
И где остальной код? может весь макрос выложишь? У тебя создается объект M1, но он нигде в приведенном коде не используется.
Цитата:
vavalexus пишет:
For i = 1 To p1.Layers.Count
If p1.Layers(i).Printable = True Then
p1.Layers(i).Shapes.All.Copy
p2.Layers(i).Paste
End If
Next i
То же самое надо сделать для ActiveDocument.Pages(0)
Замени p1 на ActiveDocument.Pages(0)
Только лучше всего создавать не новую страницу в документе, а новый документ и из него печатать.
И обращение делать к ним Documents(1) и Documents(2)
И где остальной код? может весь макрос выложишь? У тебя создается объект M1, но он нигде в приведенном коде не используется.
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=105281
