Re: Print Selection
Написал MAPUTO в 23/06/2010 11:48:50
Поробуй так:
Цитата:
Цитата:
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
Else
j=j
End If
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=105334
