Обычный текст -> RTF

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
gopstop2007
✯ Ветеран ✯
Сообщения: 1702
Зарегистрирован: 25 Март 2009, 21:55
Благодарил (а): 9 раз
Поблагодарили: 4 раза

Обычный текст -> RTF

Сообщение gopstop2007 »

kreator писал(а): 21 Сентябрь 2018, 19:01 А есть этот драйвер "Microsoft Print to PDF" не для Win10? Например, для Win7. Давно смотрел - вроде не было. А было бы актуально. Корпоративщиков на десятку затащить труднее, чем частников.
валом, сам пользуюсь http://www.bullzip.com/ по функционалу шикарен
“Есть всего 2 типа языков: те, на которые все жалуются и те, которыми никто не пользуется.” — Бьерн Страуструп
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 21 Сентябрь 2018, 19:14
kreator писал(а): 21 Сентябрь 2018, 19:01А есть этот драйвер "Microsoft Print to PDF" не для Win10?
Есть. Но не шару, к сожалению. Называется Adobe PDF Printer. Продаётся отдельно и идёт в комплекте c Adobe Acrobat.
Возможности на 2 порядка круче, чем у Microsoft PDF Printer, но это актуально для дизайнеров, полиграфистов и т.д.

Также есть различные сторонние поделки вроде Do Print PDF и т.д. - но там всё грустно.
Можно поискать по строке "PDF Printer for Windows" ...
gopstop2007 писал(а): 22 Сентябрь 2018, 10:40
kreator писал(а): 21 Сентябрь 2018, 19:01 А есть этот драйвер "Microsoft Print to PDF" не для Win10? Например, для Win7. Давно смотрел - вроде не было. А было бы актуально. Корпоративщиков на десятку затащить труднее, чем частников.
валом, сам пользуюсь http://www.bullzip.com/ по функционалу шикарен
Хотелось бы жёстко зашить в программу использование драйвера PDF. А эту кучу вариантов как использовать? Для пользователя чем меньше вариантов, тем лучше.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 22 Сентябрь 2018, 13:14Для пользователя чем меньше вариантов, тем лучше.
Тут видится 2 варианта (для старых Windows) …

1. При создании PDF документа на основании отчёта проверяем наличие принтера "PDF Printer".
Если его нет - то выдаём пользователю сообщение с предложением установить любой PDF принтер
и переименовать его в "PDF Printer". Или в настройку программы добавляем выбор установленного PDF принтера.
Печатаем на этот принтер и создаём PDF документ.

2. Как я уже упоминал есть библиотеки, в т.ч. и для Clarion. На FTP, в папке Template, 2 варианта.
Но они только коммерческие. И как в случае, с самопальными PDF принтерами - нужно быть готовым
к компромиссам … ;)
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

У нас в "корпорации" эти варианты малореализуемы. За установку принтеров отвечают админы. И заявка пользователя на установку какого-то PDF принтера (а тем более на его переименование) скорее всего окончится ничем. Жёстко. А входящие в комплект Винды вещи у админов отторжения не вызывают.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 22 Сентябрь 2018, 14:54А входящие в комплект Винды вещи у админов отторжения не вызывают.
Ну тады и неминуемый прогресс админам не чужд быть должен. GoTo Windows 10. Там всё своё есть. :)
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 22 Сентябрь 2018, 15:09 Ну тады и неминуемый прогресс админам не чужд быть должен. GoTo Windows 10. Там всё своё есть.
Наверно, уже пора выяснить - когда будет прогресс, почему не ставим десятку. Знаю точно, что лицензия есть. ВВП на них нет.
We are hard at work… for you. :)
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров, а драйверу "Microsoft Print to PDF" можно подсунуть имя файла, в который нужно сохранить отчёт? Чтобы для пользователя уже не выскакивало окно выбора. Я что-то не нашёл такую настройку.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 14 Август 2019, 11:32можно подсунуть имя файла
Я понял, в чём проблема. Здесь нужно использовать старую индейскую хитрость, которую придумал Admin (кажется).
Называется сие "Печать отчёта с подменой драйвера принтера". Т.е. мы в ABReport.clw объявляем пустой Report:

Код: Выделить всё

_PrintPDFQueue       Queue(PreviewQueue)
                     end

_PDFReport           Report('')
                     end
Сохраняем все текущие параметры печати, т.к. они системные и выставляем новые:

Код: Выделить всё

  Printer{PropPrint:Device} = 'Microsoft Print to PDF'
  Printer{PropPrint:PrintToFile} = True
  Printer{PropPrint:PrintToName} = имя PDF файла для отчёта
Выставляем параметры отчёта (после его открытия есстестно):

Код: Выделить всё

           Open(_PDFReport)
           _PDFReport{Prop:Text}      = имя отчёта
           _PDFReport{Prop:PreView}   = _PrintPDFQueue
           _PDFReport{Prop:Landscape} = Self.TypeReport
           EndPage(_PDFReport)  ! НЕ ПРОПУСКАТЬ ЭТО !!!
Копируем в этот отчёт листы из сформированной очереди печати PrintPreviewQueue и отправляем на "печать":

Код: Выделить всё

   _PDFReport{Prop:FlushPreview} = True
   Close(_PDFReport)
   Free(_PrintPDFQueue)   
Восстанавливаем системные параметры печати, и собственно всё - забираем готовый отчёт в виде PDF файла ... :)
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Обычный текст -> RTF

Сообщение Admin »

Вряд ли я
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

Admin писал(а): 15 Август 2019, 0:03Вряд ли я
И точно - не я. :)
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 14 Август 2019, 16:54 Сохраняем все текущие параметры печати, т.к. они системные и выставляем новые:

Код: Выделить всё

Printer{PropPrint:Device} = 'Microsoft Print to PDF'
Printer{PropPrint:PrintToFile} = True
Printer{PropPrint:PrintToName} = имя PDF файла для отчёта
Вот за это спасибо! Если это заработает, даже не знаю сколько головной боли у нас уйдёт. Сейчас попробуем.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 15 Август 2019, 10:48Если это заработает
Давно это было, но кажется тупо перенаправить произвольный готовый отчёт в PDF файл - не получится.
Нужно именно создать новый Report, выставить параметры и потом перелить в него отчёт.
Или же тогда изначально создавать отчёт с драйвером PDF ...
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
vic7tar
Ветеран
Сообщения: 365
Зарегистрирован: 09 Февраль 2017, 20:12

Обычный текст -> RTF

Сообщение vic7tar »

Всё равно спросит куда записывать.
C10, Win10x64
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7329
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

vic7tar писал(а): 15 Август 2019, 14:31Всё равно спросит куда записывать.
Неа. Однозначно не спрашивает. :)
Изначально делали пакетную выгрузку отчётов в PDF с отправкой по e-mail (счёт + ТОРГ12 + УПД и т.д.), а далее уже прикрутили везде ...
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
vic7tar
Ветеран
Сообщения: 365
Зарегистрирован: 09 Февраль 2017, 20:12

Обычный текст -> RTF

Сообщение vic7tar »

Вспомните, а это давно было с Adobe PDF Converter-ом или с Microsoft Print To PDF-ом?
C10, Win10x64
Ответить