Количество копий из экрана Превью.

Обсуждение извечных проблем кларионовских (и не только) отчетов

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

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Количество копий из экрана Превью.

Сообщение kreator »

Народ, а кто-нибудь делал? Может подскажете? Велосипед наверно изобретён.
We are hard at work… for you. :)
Аватара пользователя
Губин Игорь
✯ Ветеран ✯
Сообщения: 2301
Зарегистрирован: 16 Сентябрь 2005, 16:35
Откуда: Москва
Поблагодарили: 17 раз

Количество копий из экрана Превью.

Сообщение Губин Игорь »

Из него - нет. Делал задавая заранее :cat:
Это я только кажусь дураком! На самом деле я полный идиот!
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

Про такое речь?
print_prev.png
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Количество копий из экрана Превью.

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

kreator писал(а): 11 Март 2021, 10:39 Велосипед наверно изобретён
Всё тоже самое, что и создание PDF файла посредством печати на PDF принтер из окна Preview.
Создаём пустой отчёт, выставляем для него параметры и копируем нужное кол-во копий листов
отчёта в очередь (кстати можно менять порядок страницы для печати). Закрываем и печатаем. :)
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Количество копий из экрана Превью.

Сообщение kreator »

finsoftrz писал(а): 11 Март 2021, 11:50 Про такое речь?

print_prev.png
Да, типа того.
Игорь Столяров писал(а): 11 Март 2021, 11:51
kreator писал(а): 11 Март 2021, 10:39 Велосипед наверно изобретён
Всё тоже самое, что и создание PDF файла посредством печати на PDF принтер из окна Preview.
Создаём пустой отчёт, выставляем для него параметры и копируем нужное кол-во копий листов
отчёта в очередь (кстати можно менять порядок страницы для печати). Закрываем и печатаем. :)
Есть propprint:Copies и proprint:Collate. Экспериментировать времени жалко. Думал кто-то уже делал. Тогда вопрос к finsoftrz. Вот так к уже открытому репорту заработает:

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

SomeReport{PROPPRINT:Copies} = 3
?
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Количество копий из экрана Превью.

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

kreator писал(а): 11 Март 2021, 17:36 Есть propprint:Copies и proprint:Collate
Параметры отчёта (к сожалению и драйвер принтера) устанавливаются до OpenReport() :(
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

Вообще, это все было реализовано в ШВС больше 20 лет назад. Делается не через проперти, а через переформирование выходной очереди со списком wmf файлов. Более забавная задачка была (не реализованная в базовых ШВС) - это печать нужных страниц и копий без выхода из превью.
C6/C11, ШВС, tps/btrieve.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Количество копий из экрана Превью.

Сообщение kreator »

Да уж! Репу чесать надо. Вернее экспериментировать. В хелпе некоторые свойства можно задавать после открытия репорта.
Example:

SomeReport REPORT
END

CODE

PRINTER{PROPPRINT:Device} = 'Epson' !Pick 1st Epson in the list

PRINTER{PROPPRINT:Port} = 'LPT2:' !Send report to LPT2

PRINTER{PROPPRINT:Percent} = 250 !page printed 2.5 times normal

PRINTER{PROPPRINT:Copies} = 3 !print 3 copies of each page
PRINTER{PROPPRINT:Collate} = False !print 1,1,1,2,2,2,3,3,3,...
PRINTER{PROPPRINT:Collate} = True !print 1,2,3..., 1,2,3...,

PRINTER{PROPPRINT:PrintToFile} = True !print to a file
PRINTER{PROPPRINT:PrintToName} = 'OUTPUT.RPT' !filename to print to

OPEN(SomeReport) !Open report after setting PRINTER properties
SomeReport{PROPPRINT:Paper} = PAPER:User !Custom paper size
SomeReport{PROPPRINT:PAPERHeight} = 6 * 254 !6" form height
SomeReport{PROPPRINT:PAPERWidth} = 3.5 * 254 !3.5" form width
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Количество копий из экрана Превью.

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

finsoftrz писал(а): 11 Март 2021, 18:53 это печать нужных страниц и копий без выхода из превью
Для этого нужно сформировать новый отчёт и делать с ним что угодно (см. описание ниже),
а не глумиться над очередью открытого в Preview Report. Кстати идея не моя, где-то слямзил ... ;)

1.jpg
1.jpg (66.72 КБ) 3291 просмотр
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

Не понял, что значит сформировать новый отчёт? Окно параметров печати из превью без выхода то же самое, как я привёл на скриншоте. Насколько помню, там стандартный репорт, очередь страниц для которого грузится из очереди страниц исходного отчёта. Возможно, мы одно и тоже имеем ввиду. Когда-то тема обсуждалась в клалист.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

А просто печать, нафига ещё один репорт делать.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7330
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Количество копий из экрана Превью.

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

finsoftrz писал(а): 11 Март 2021, 20:59 А просто печать, нафига ещё один репорт делать.
Таки да, но Вы же спросили "без выхода из превью".
А если в очередь накидать копий листов и не закрыть окно Preview после такой печати - то будет смешно ... ;)
А c Temp Report всё просто - поместили в него что нужно и в нужном кол-ве, напечатали и изничтожили без последствий.
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

Спрашивал критор просто про печать. Я в ответе упомянул про похожую задачу без закрытия превью. Если подвести итог, то для просто печати (с закрытием превью) используется модификация исходной очереди страниц. Для печати без закрытия превью используется темп репорт. У меня первое из стандартных швс, второе доработка.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3131
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 10 раз
Поблагодарили: 28 раз
Контактная информация:

Количество копий из экрана Превью.

Сообщение Дед Пахом »

Игорь Столяров писал(а): 11 Март 2021, 19:21 Для этого нужно сформировать новый отчёт и делать с ним что угодно
Игорь, наверное у Вас есть интересная история о том, почему пришлось для терминов "Нечётные" и "Чётные" добавить пояснения ("1,3,5..." , "2,4,6...")?
С уважением, ДП
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4562
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Количество копий из экрана Превью.

Сообщение finsoftrz »

А вдруг среди юзерей даун попадётся. :idied:
C6/C11, ШВС, tps/btrieve.
Ответить