Re: Print Selection

Написал vavalexus в 22/06/2010 16:19:02

Цитата:
Я русские тоже терпеть не могу, дома весь софт английский, но на работе лицуха, ниче не поделаешь.

А с этим не получится?

К сожалению, в VBA я только на уровне "метода тыка". Если Вас не затруднит, напишите, пожалуйста.
Пока добавил
Dim DefPage As Page, p2 As Page, p1 As Page, m1 As Page
Set m1 = doc.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
End If
Next j
Но что-то видно не то.
Заранее спасибо!