Растрирование страниц в документе

Slovnet / 12.12.2014, 10:04/10:07
Форум: 
Макросы и скрипты
Версия программы: 
15.2.0.686 (sp3)

Дорого времени суток! Имеется документ, будем называть его «коллаж», в нём 20 страниц. При отправки на печать, отправляет долго по времени, и иногда тени вылетают и прочие объекты. Если растрировать страницу, проблема исчезает. Подскажите, как сделать так, чтобы растрировать сразу все страницы, может есть какой-то макрос или скриптик? Заранее благодарю!

dastin / 12.12.2014, 10:36

а просто в диалоге печати взвести галку -
Print as Bitmap - печатать как растр
или в ранних версиях
Rasterize entire Page - растрировать страницы с заданным разрешением
не подойдет?
картинка 1

картинка 2

Slovnet / 12.12.2014, 10:43

Если поставить галочку «печатать как растр» при отправки на печать, скорость отправки сокращается, да, НО не на много...

dastin / 12.12.2014, 11:17

ну тогда вот вам
примерчик

Sub pagesToBitmap()
    Dim p As Page, sr As ShapeRange, s As Shape
   
    For Each p In ActiveDocument.Pages
        p.Activate
        Set sr = ActivePage.Shapes.All
        If sr.count > 0 Then
            Set s = sr.Group
            s.ConvertToBitmapEx cdrRGBColorImage, False, False, 150, cdrNormalAntiAliasing, True, False, 95
        End If
    Next p
End Sub

отредактируйте под себя и вперёд

Slovnet / 12.12.2014, 11:38

Да верный примерчик. Спасибо огромное!

Slovnet / 19.12.2014, 16:47

Не силён в программировании, сколько потребуется времени и сил создать полноценный макрос с панелью. Пример прилагается

Изображения
dastin / 19.12.2014, 17:08

так найдите wx_ExportJPG - там это всё есть

линк

линк на интефейс

в Х5 всё работоспособно
возможно и в Х6

Slovnet / 22.12.2014, 14:22

Если бы я имел хоть чуток представления как это сделать, какой нужный аргумент надо убрать-вставить было бы немного проще. Dastin, цена вопроса?

dastin / 22.12.2014, 14:57

а ... ммм... а что делать-то?
берете макрос от woxxom и пользуетесь - смык, ргб, разрешение, многостраничность, прозрачный фон, индексирование имен ... и ещё куча форматов впридачу ///

или что-то я не понял в вопросе?

Slovnet / 22.12.2014, 15:13

Мне не надо экспортировать, мне надо в документе растрировать все, или выборочные страницы с определённым разрешением, и цветовым профилем

dastin / 22.12.2014, 15:39

а чего не всё? - разве не проще?
в макросе только поправить RGB на CMYK и 150 - на то что нужно

я как бы тоже не писатель :) просто внимательный читатель ;) и чувствую что макрос реализующий ваши условия "поправится" в несколько раз

Страницы