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

gopstop2007

kreator писал(а): 21 Сентябрь 2018, 19:01 А есть этот драйвер "Microsoft Print to PDF" не для Win10? Например, для Win7. Давно смотрел - вроде не было. А было бы актуально. Корпоративщиков на десятку затащить труднее, чем частников.

валом, сам пользуюсь http://www.bullzip.com/ по функционалу шикарен

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. А эту кучу вариантов как использовать? Для пользователя чем меньше вариантов, тем лучше.

Игорь Столяров

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

Тут видится 2 варианта (для старых Windows) …

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

2. Как я уже упоминал есть библиотеки, в т.ч. и для Clarion. На FTP, в папке Template, 2 варианта.
Но они только коммерческие. И как в случае, с самопальными PDF принтерами - нужно быть готовым
к компромиссам …

kreator

У нас в "корпорации" эти варианты малореализуемы. За установку принтеров отвечают админы. И заявка пользователя на установку какого-то PDF принтера (а тем более на его переименование) скорее всего окончится ничем. Жёстко. А входящие в комплект Винды вещи у админов отторжения не вызывают.

Игорь Столяров

kreator писал(а): 22 Сентябрь 2018, 14:54А входящие в комплект Винды вещи у админов отторжения не вызывают.

Ну тады и неминуемый прогресс админам не чужд быть должен. GoTo Windows 10. Там всё своё есть.

kreator

Игорь Столяров писал(а): 22 Сентябрь 2018, 15:09 Ну тады и неминуемый прогресс админам не чужд быть должен. GoTo Windows 10. Там всё своё есть.

Наверно, уже пора выяснить - когда будет прогресс, почему не ставим десятку. Знаю точно, что лицензия есть. ВВП на них нет.

kreator

Игорь Столяров, а драйверу "Microsoft Print to PDF" можно подсунуть имя файла, в который нужно сохранить отчёт? Чтобы для пользователя уже не выскакивало окно выбора. Я что-то не нашёл такую настройку.

Игорь Столяров

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** » 15 Август 2019, 0:03

Вряд ли я

Игорь Столяров

Admin писал(а): 15 Август 2019, 0:03Вряд ли я

И точно - не я.

kreator

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

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

Printer{PropPrint:Device} = 'Microsoft Print to PDF'
Printer{PropPrint:PrintToFile} = True
Printer{PropPrint:PrintToName} = имя PDF файла для отчёта

Вот за это спасибо! Если это заработает, даже не знаю сколько головной боли у нас уйдёт. Сейчас попробуем.

Игорь Столяров

kreator писал(а): 15 Август 2019, 10:48Если это заработает

Давно это было, но кажется тупо перенаправить произвольный готовый отчёт в PDF файл - не получится.
Нужно именно создать новый Report, выставить параметры и потом перелить в него отчёт.
Или же тогда изначально создавать отчёт с драйвером PDF ...

vic7tar

Всё равно спросит куда записывать.

Игорь Столяров

vic7tar писал(а): 15 Август 2019, 14:31Всё равно спросит куда записывать.

Неа. Однозначно не спрашивает.

Изначально делали пакетную выгрузку отчётов в PDF с отправкой по e-mail (счёт + ТОРГ12 + УПД и т.д.), а далее уже прикрутили везде ...

vic7tar

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