Печать 2-х копий

[Андрей]

Всем доброго дня !

Что то не могу найти ни примера в поставке С10, ни темы такой...

Надо вывести 2 копии квитанции. Как сделать,чтоб Detail напечатался дважды, в два столбца страницы ?

[kreator]

В хелпе поищи печать лейблов. Но чтобы это сработало, нужно две записи. Вряд ли это нужно. Может просто тупо элементы детэйла скопировать?

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

1. Сделать Datail по ширине в 2 раза уже чем ширина печатного листа.
2. Повторить 2 раза печать Detail:

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

  ! Parent Call
  ReturnValue = PARENT.TakeRecord()
! [Priority 5001]
  Loop 2 Times
  PRINT(RPT:detail)
  ! [Priority 8000]
  end

3. Все ...

[Андрей]

А куда ставить ?
В ProcessManager-TakeRecord ?

Что-то не срабатывает

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

Ну тогда просто после "PRINT(RPT:detail)" поставь еще один PRINT(RPT:detail) - это проще ...

[Андрей]

Ура ! Заработало ! ))

Спасибо !

[sergm2324]

PRINTER{PROPPRINT:COPIES}=par - я так делаю, перед этим пользователь вводит нужное ему кол-во копий (параметр par-глобальная переменная, вводится в отдельном окне). Прописываю это в Procedure Setup в Report.

[Андрей]

PRINTER{PROPPRINT:COPIES}=par - я так делаю, перед этим пользователь вводит нужное ему кол-во копий (параметр par-глобальная переменная, вводится в отдельном окне). Прописываю это в Procedure Setup в Report.

Наверно это не совсем то ? Распечатаются 2 копии вертикально ?, а мне нужно 2 копии по ширине листа - горизонтально.
Или если сделать узкий Detail - тоже горизонтально будет ?

[Ал]

2 копии репорта -это видимо не 2 копии детали в одном репорте?

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

PRINTER{PROPPRINT:COPIES}=par

Не хотел бы вмешиваться в поиск истины, но PRINTER{PROPPRINT:COPIES} посылает
драйверу принтера команду повторить печать ВСЕГО отчета указанное кол-во раз.
И кстати, поддерживается не всеми драйверами печатных устройств.

[Андрей]

В общем понял, что для дублирования Detail достаточно сделать ширину Detail в 2 раза меньше ширины Report, и дважды послать
Print(Rpt:Detail), скажем программным образом в BeforePrintPeriew.

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

Loop 2 Times
	Print(Rpt:Detail)
End

Но возможно ли сделать еще и сочетание разных Detail ?
Шапки и n-го кол-ва услуг ?

Пытаюсь в BeforePrintPeriew

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

Loop 2 Times
	Print(Rpt:Detail)	 !печать шапки квитанции
	Loop i#=1 to Records(l:q:Usl) 
	    get(l:q:Usl,i#)
	    Print(Rpt:DetUsl)   !печать i-ой услуги
	end
End

Ну разумеется получается ерунда какая то...

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

Но возможно ли сделать еще и сочетание разных Detail ?

К сожалению, нет. Такой номер при печати в 2 колонки не пройдет.
Здесь нужно просто делать дублирование отчета.
Что бы была понятна эта незамысловатая идея, вот пример:

Тогда, действительно, получается полноценный отчет в две колонки, с шапкой, телом и подвалом ...

[kreator]

Но возможно ли сделать еще и сочетание разных Detail ?Шапки и n-го кол-ва услуг ?

Можно попробовать поиграться с разными detail'ами (шапка - типа тоже detail). В "Report Properties" есть закладка "Filters". По умолчанию там для всех элементов отчёта стоит True. Можно для всех поставить False. А печатать руками:

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

Print(Rpt:Detail1)
Print(Rpt:Detail2)
Print(Rpt:Detail3)

Мы частенько пользуемся этим, когда нужен отчёт с разнородными кусками. Но именно Вашего варианта не приходилось делать.

[Ал]

"наплодить" строк-пустышек в шапку/деталь(и) и проч., которые заполнять перед печатью чем нужно, но муторно и неудобно потом в поддержке, проще наверное разобраться/договориться)) что же устроит заказчика в окончательно варианте и сделать отдельными стандартными отчетами, ну или сразу формировать/выводить в xml|excel|word...

[Андрей]

Но возможно ли сделать еще и сочетание разных Detail ?

К сожалению, нет. Такой номер при печати в 2 колонки не пройдет.
Здесь нужно просто делать дублирование отчета.

Прям ручками все координаты пересчитывать и вводить для копии или есть какие нибудь "приспособы" ?