Печать документа по листам

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Печать документа по листам

Сообщение Espada »

Доброго дня, необходимо сделать групповую печать документов, так что бы получился один документ на лист( форма печати *.frm)

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

.begin
itog:=0;
end.
 Ш
.{
 ^


                            @@@@@@@@@ ОРДЕР №  ^
                               от ^
.if SKLORDER01
   Основание  : ^
.if SKLORDER02
.else
.end
.else
.end
   Склад      : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

--------------T-----------------------------T---------T------------------T---------------T-----------------
Номенклатурный│    Материальные  ценности   │ Единица │    Количество    │     Цена      │    Стоимость
    номер     │                             │измерения│                  │ @~@@@@@@@@@@@ │  @~@@@@@@@@@@@
--------------+-----------------------------+---------+------------------+---------------+-----------------
.{
.{
&&&&&&&&&&&&&& @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@ &'&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&& &'&&&&&&&&&&&&&&&
.begin
   if ed='кг' itog := itog + double(kol);
end.
.}
.}
-----------------------------------------------------------------------------------------------------------
   Итого :                                             &'&&&&&&&&&&&&&.&&& кг             &&&&&&&&&&&&&&&&& руб

.begin
  sender    := '_____________________';
  recipient := '_____________________';
  localSklOrder.GetFirst SklOrder where ((SklOrderRec == SklOrder.nRec));
  if (localSklOrder.SklOrder.vidOrder = 0) // приходный
  {
    if (Mol = '')
    then sender := '_____________________'
    else sender := Mol;
  }
  if (localSklOrder.SklOrder.vidOrder = 1) // расходный
  {
    if (Mol = '')
    then recipient := '_____________________'
    else recipient := Mol;
  }
end.

            Принял :^     Сдал :^
.{
.}
.}
.endform                      
получается, что печатается одно за одним... может есть какой-нибудь знак или функция, которую можно в конце написать(поставить), что бы при печати новый ордер "перескакивал" на новый лист???
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Re: Печать документа по листам

Сообщение spark »

Открываете ДО на продажу, например, выделяете несколько ДО и нажимаете Ctrl+P, выбираете "печать на листах(с прогоном бумаги)", далее "Счет СТАНДАРТНЫЙ - А4".
В получившемся отчете между ДО будет символ прогона бумаги. Всю строку с этим символом скопируйте в свою форму.
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

Re: Печать документа по листам

Сообщение Espada »

spark писал(а):Открываете ДО на продажу, например, выделяете несколько ДО и нажимаете Ctrl+P, выбираете "печать на листах(с прогоном бумаги)", далее "Счет СТАНДАРТНЫЙ - А4".
В получившемся отчете между ДО будет символ прогона бумаги. Всю строку с этим символом скопируйте в свою форму.
Всё работает, супер, спасибо)
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Ответить