Коллеги, привет!
Сегодня хочу поделиться способом экстракции данных из QlikView в PDF (с помощью макроса).
Пример экспорта данных в PDF
Итак, давайте рассмотрим случай, что у нас уже есть готовый источник с информацией в виде отчета QlikView, который будем отправлять в PDF-файл
Предлагаю использовать библиотеку для экспорта — PDFCreator 1.7.3. Это бесплатный инструмент, а качество изображения остается неизменным.
Код VBScript для экспорта данных в PDF
Теперь давайте перейдем к коду в VBScript.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
'Создание сущности PDFCreator Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") ' Переменные конфигурации библиотеки PDFCreator With pdfjob 'Проверка очереди принтера If .cStart("/NoProcessingAtStartup") = False Then If .cStart("/NoProcessingAtStartup", True) = False Then ' Если у вас нет объектов в очереди печати, макрос завершит исполнение. Exit Sub End if 'Если у вас есть объект в очереди печати, печать будем видимой .cVisible = True End If .cOption("UseAutosave") = 1 'Разрешить автосохранение .cOption("UseAutosaveDirectory") = 1 'Разрешить автосохранение директории .cOption("AutosaveDirectory") = Path 'Уведомление о создании отчета .cOption("AutosaveFilename") = ReportName 'Запись о создании отчета. cOption("AutosaveFormat") = 0 'Формат PDF .cClearCache 'Итоговая настройка библиотеки PDFCreator End With 'Распечатать отчет ActiveDocument.PrintReport ReportID, "PDFCreator" 'Подождите, пока процесс не войдет в очередь печати Do Until pdfjob.cCountOfPrintjobs = 1 ActiveDocument.GetApplication.Sleep 20 Loop pdfjob.cPrinterStop = False 'Подождите, пока очередь печати не будет пуста Do Until pdfjob.cCountOfPrintjobs = 0 ActiveDocument.GetApplication.Sleep 20 Loop 'Завершить процесс pdfjob.cClose 'Сброс переменной Set pdfjob = Nothing end sub |
Это весь код для вызова библиотеки PDF Creator. После этого нужно вызвать исполнение макроса.
В качестве примера скачайте приложение Экспорт отчета QV в PDF.qvw
Отличный вам разработок с Qlik!
Василий Петренко
B3
Максим
Stepan
Павел Карасев
Свежие комментарии