Два экземпляра документа на одной странице

28.06.09

✎

03:03

Доброго времени суток!

Знакомая попросила помочь в нескольких вопросах по 1с ("напряг" жадный директор , наверное увидел у кого-нибудь ).
В свою очередь, прошу помощи у сообщества !.

Есть ТиС 7.70.938 (если необходимо, то обновлю до 959), товар - бакалея:

1. Как сделать, чтобы простая печатная форма накладной (реализация) печатала 2-экз. одной и той же накладной на 1-ой странице. Поиск по google дал "скудное" (в плане информативности) решение 2004г. Простая накладная печатается в 2-х экземплярах на листе формата А4 - альбомная, поделенный вертикальной чертой (может быть/может не быть), в итоге: А4 = 2 х А5.

Спасибо!

P.S. в конфигурировании я новичок, не обессудьте за "глупые" вопросы

1 nop

28.06.09

✎

03:05

"печатала 2-экз. одной и той же накладной на 1-ой странице"
Прийдется менять печатную форму в конфигураторе.

2 Adilgeriy

28.06.09

✎

03:13

если принтер поддерживает маштобирование то можно выкрутиьт маштаю в настройках документа до альбомного а4 и печатать 2 экземпляра а на принтере в настройказ сказать две страницы на лист

3 ZDenis

28.06.09

✎

03:13

А если поставить ориентацию - портрет, по ширине листа и экземпляров на страницу - 2 - не взлетит?

4 nop

28.06.09

✎

03:15

може, но операторы задолбутся это делать и будут тупить. Все равно в конфигуратор лезть надо как бы

5 Adilgeriy

28.06.09

✎

03:18

(3) взлетит но это от докуента завистит

6 IgNat

28.06.09

✎

05:09

Здесь, v7: Несколько экземпляров на странице (Несколько экземпляров на странице, есть решение. Но у меня не получилось, ошибка:

Таб<<?>>.ЭкземпляровНаСтранице(2);
{D:\1C\BASE\7\TRADE959_CLEAN\DEMODB\EXTFORMS\PRNFORMS\SALE.ERT(103)}: Переменная не определена (Таб)

Если возможно, объясните пошагово/схематично (Конфигурация -> Обработки или Открыть документ ... Найти строчку такую-то ... Вставить то-то).
Спасибо, всем откликнувшимся :)

7 IgNat

28.06.09

✎

05:25

Два экземпляра документа на одной странице Не "взлетает" :(

8 Злопчинский

28.06.09

✎

06:36

(6) возможно переменная д.б. не Таб а Исхтаб - ну посмотри глазками...

9 а лю 427

28.06.09

✎

09:30

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

10 IgNat

28.06.09

✎

15:15

(8)если Вы про sale.ert, то пробовал, ошибки нет, но нет и результата.
(9) Ничего не меняется.
В "Файл" -> "Параметры страницы..." - нет возможности выбрать "Ландшафт". Где/Что надо подправить для появление возможности выбора.
Спасибо

11 а лю 427

28.06.09

✎

15:38

как это нет портрета? Выбрать надо портрет - в ладшафте такое отсутствует

12 lals

28.06.09

✎

16:48

(10) Код из модуля формы документа расходная в студию! Желателль одну процедуру Печать()

13 IgNat

28.06.09

✎

17:12

(11) портрет есть, ландшафт не активен "серый", это дополнительный вопрос, который тоже хотелось бы решить. А по-поводу Портрет и2 экз. я уже написал - не решает проблему.
(12) как правильно разместить в сообщении на форуме код? Уточняю, "из модуля формы документа расходная", это: Конфигурация -> Документы -> Реализация или Внешняя печатная форма: sale.ert ?
Спасибо

14 IgNat

28.06.09

✎

18:43

(12) Внешняя печатная форма: sale.ert

//******************************************************************************
// Печать(Докум)
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Перем НачПовт, КонПовт;

ИсхТабл = СоздатьОбъект("Таблица");
НачПовт = 0; КонПовт = 0;

// секция Заголовок

ИсхТабл.ВывестиСекцию("Заголовок");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Заголовок");

// Секция Поставщик
Поставщик = СокрЛП(Докум.Фирма.ЮрЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Фирма.ЮрЛицо.ЮрАдрес);
ИсхТабл.ВывестиСекцию("Поставщик");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Поставщик");

// Секция Покупатель
Если ПустоеЗначение(Докум.Контрагент) = 0 Тогда
Покупатель = СокрЛП(Докум.Контрагент.ЮрФизЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Контрагент.ЮрФизЛицо.ЮрАдрес);
Иначе
Покупатель = "";
КонецЕсли;

// Секция Склад
Если ПустоеЗначение(Докум.Склад) = 0 Тогда
Склад = СокрЛП(Докум.Склад);
Иначе
Склад = "";
КонецЕсли;

ИсхТабл.ВывестиСекцию("Покупатель");
ИсхТабл.ВывестиСекцию("Склад");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Покупатель");

СекцСкидка = ?(ПустоеЗначение(Докум.Скидка) = 0, "Скидка", "");

// Секция Шапка таблицы
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка);
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("ШапкаТаблицы" + СекцСкидка);
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

// выводим табличную часть
НомСтроки = 0;
Докум.ВыбратьСтроки();

Пока Докум.ПолучитьСтроку() = 1 Цикл
НомСтроки = НомСтроки + 1;
ИсхТабл.ВывестиСекцию("Строка" + СекцСкидка);
КонецЦикла;

СуммаИтог = Докум.Итог("Сумма");

// секция Итого
ИсхТабл.ВывестиСекцию("Итого");

// секция ИтогоНДС
Если Докум.УчитыватьНДС = 1 Тогда
СуммаНДСИтог = Докум.Итог("СуммаНДС");
Если Докум.СуммаВклНДС = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНДСИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНДС");
КонецЕсли;

// секция ИтогоНП
Если Докум.УчитыватьНП = 1 Тогда
СуммаНПИтог = Докум.Итог("СуммаНП");
Если Докум.СуммаВклНП = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНПИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНП");
КонецЕсли;

// секция СуммаПрописью
ИсхТабл.ВывестиСекцию("СуммаПрописью");

// секция Подписи
ИсхТабл.ВывестиСекцию("Подписи");

Если Устройство = 0 Тогда
ИсхТабл.Опции(0,0,0,0,"ОпцииПечатиРеализация");
Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
ИсхТабл.ТолькоПросмотр(1);
Иначе
ИсхТабл.ТолькоПросмотр(0);
КонецЕсли;
ИсхТабл.Показать(глНазваниеДокументаВжурнале(Докум),"");
Иначе
ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,);
ИсхТабл.КоличествоЭкземпляров(КолвоКопий);
ИсхТабл.Напечатать(0);
КонецЕсли;

КонецПроцедуры // Печать()

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()

Если Док.Выбран() = 0 Тогда
Предупреждение("Не выбран документ!", 60);
Возврат;
КонецЕсли;

Печать(Док);

КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

Докум = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");

Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;

КонецПроцедуры // ПриОткрытии()

15 Касандер72

28.06.09

✎

19:03

А не проще ли сдуплить форму в самом шаблоне документа ?

16 IgNat

28.06.09

✎

19:39

(15) Как это сделать?

17 Касандер72

28.06.09

✎

19:44

Зайди в шаблон (исходную таблицу) вывода документа и тупо скопипасти
Потом регулируй вывод (с секциями не запутайся)

18 IgNat

28.06.09

✎

19:56

Касандер72,...с секциями не запутайся... - я же вначале написал, что новичок ;)
Чем это решение "проще" решения по ссылке в (6). Там всего-то добавляется одна строчка и изменяются пару-тройку параметров? Только у меня не получилось и не могу понять где ошибаюсь.

19 Snob

28.06.09

✎

20:07

(18) ну и впищи

20 Snob

28.06.09

✎

20:08

+(19)
ИсхТабл.КоличествоЭкземпляров(2);
ИсхТабл.ЭкземпляровНаСтранице(2);
ИсхТабл.Показать();

как в(6)

21 IgNat

28.06.09

✎

20:19

(20)делал, всё равно один экземпляр на странице

22 Касандер72

28.06.09

✎

20:27

(18) Сори, это не проще, а надёжнее - всегда взлетает, в отличие от (20)
Опиши секции в шаблоне (вертикальные и горизонтальные)

23 IgNat

28.06.09

✎

20:34

(22) Опиши секции в шаблоне (вертикальные и горизонтальные)- как это сделать?

24 а лю 427

28.06.09

✎

20:50

попробуй в процедуре печать заменить строки
на указанные
ИсхТабл.ПараметрыСтраницы(1, , , , , , , , , 1 ,, );
ИсхТабл.ЭкземпляровНаСтранице(2);

25 IgNat

28.06.09

✎

21:00

(24) ничего не меняется. На (9) дополнение, при печати не было выбрано 2 копии. Теперь на листе "Портрет" можно разместить 2 экз. документа, уменьшив масштаб до 50-70%%.
Но надо , чтобы на листе "Ландшафт" размещались 2 экз. рядом друг с другом. Т.к. при мностраничной накладной и лист "Портрет" начинается путаница или играться масштабом и тогда вообще полная "несуразица".

26 ZDenis

28.06.09

✎

21:06

(25) теперь более понятно, тогда надо выделить весь отчет в вертикальную секцию и вмето
ИсхТабл.ВывестиСекцию("Покупатель");
ставить
ИсхТабл.ВывестиСекцию("Покупатель|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Покупатель|ВертикальнаяСекция");
и т.д везде где секции выводятся

27 а лю 427

28.06.09

✎

21:06

(25) парень, ты пролетел как фанера над Парижем....

"Т.к. при мностраничной накладной и лист "Портрет" начинается путаница или играться масштабом и тогда вообще полная "несуразица"..."

Режим два экземпляра на страницу корректно работает только для коротких документов. Потом будет фигня....

Тебе проще поиграться настройками принтера - чтобы он сам уменьшал документ, поворачивал и печатал по 2 листа на странице. Современные принтеры это умеют...

28 IgNat

28.06.09

✎

21:34

(26) Правильно я понял, если да, то посмотрите, пжл, на предмет ошибок:

//******************************************************************************
// Печать(Докум)
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Перем НачПовт, КонПовт;

ИсхТабл = СоздатьОбъект("Таблица");
НачПовт = 0; КонПовт = 0;

// секция Заголовок

ИсхТабл.ВывестиСекцию("Заголовок|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Заголовок|ВертикальнаяСекция");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Заголовок");

// Секция Поставщик
Поставщик = СокрЛП(Докум.Фирма.ЮрЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Фирма.ЮрЛицо.ЮрАдрес);
ИсхТабл.ВывестиСекцию("Поставщик|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Поставщик|ВертикальнаяСекция");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Поставщик");

// Секция Покупатель
Если ПустоеЗначение(Докум.Контрагент) = 0 Тогда
Покупатель = СокрЛП(Докум.Контрагент.ЮрФизЛицо.ПолнНаименование) + " " + глПредставлениеАдреса(Докум.Контрагент.ЮрФизЛицо.ЮрАдрес);
Иначе
Покупатель = "";
КонецЕсли;

// Секция Склад
Если ПустоеЗначение(Докум.Склад) = 0 Тогда
Склад = СокрЛП(Докум.Склад);
Иначе
Склад = "";
КонецЕсли;

ИсхТабл.ВывестиСекцию("Покупатель|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Покупатель|ВертикальнаяСекция");
ИсхТабл.ВывестиСекцию("Склад|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Склад|ВертикальнаяСекция");
НачПовт = НачПовт + ИсхТабл.ВысотаСекции("Покупатель");

СекцСкидка = ?(ПустоеЗначение(Докум.Скидка) = 0, "Скидка", "");

// Секция Шапка таблицы
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка |ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("ШапкаТаблицы" + СекцСкидка |ВертикальнаяСекция");
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("ШапкаТаблицы" + СекцСкидка);
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

// выводим табличную часть
НомСтроки = 0;
Докум.ВыбратьСтроки();

Пока Докум.ПолучитьСтроку() = 1 Цикл
НомСтроки = НомСтроки + 1;
ИсхТабл.ВывестиСекцию("Строка" + СекцСкидка |ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Строка" + СекцСкидка |ВертикальнаяСекция");
КонецЦикла;

СуммаИтог = Докум.Итог("Сумма");

// секция Итого
ИсхТабл.ВывестиСекцию("Итого|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Итого|ВертикальнаяСекция");

// секция ИтогоНДС
Если Докум.УчитыватьНДС = 1 Тогда
СуммаНДСИтог = Докум.Итог("СуммаНДС");
Если Докум.СуммаВклНДС = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНДСИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНДС|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("ИтогоНДС|ВертикальнаяСекция");
КонецЕсли;

// секция ИтогоНП
Если Докум.УчитыватьНП = 1 Тогда
СуммаНПИтог = Докум.Итог("СуммаНП");
Если Докум.СуммаВклНП = 0 Тогда
СуммаИтог = СуммаИтог + СуммаНПИтог;
КонецЕсли;
ИсхТабл.ВывестиСекцию("ИтогоНП|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("ИтогоНП|ВертикальнаяСекция");
КонецЕсли;

// секция СуммаПрописью
ИсхТабл.ВывестиСекцию("СуммаПрописью|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("СуммаПрописью|ВертикальнаяСекция");

// секция Подписи
ИсхТабл.ВывестиСекцию("Подписи|ВертикальнаяСекция");
ИсхТабл.ПрисоединитьСекцию("Подписи|ВертикальнаяСекция");

Если Устройство = 0 Тогда
ИсхТабл.Опции(0,0,0,0,"ОпцииПечатиРеализация");
Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
ИсхТабл.ТолькоПросмотр(1);
Иначе
ИсхТабл.ТолькоПросмотр(0);
КонецЕсли;
ИсхТабл.Показать(глНазваниеДокументаВжурнале(Докум),"");
Иначе
ИсхТабл.ПараметрыСтраницы(1, , , , , , , , , 1 ,, );
ИсхТабл.ЭкземпляровНаСтранице(2);
ИсхТабл.Напечатать(0);
КонецЕсли;

КонецПроцедуры // Печать()

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()

Если Док.Выбран() = 0 Тогда
Предупреждение("Не выбран документ!", 60);
Возврат;
КонецЕсли;

Печать(Док);

КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

Если ПустоеЗначение(Форма.Параметр) = 0 Тогда

Докум = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");

Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;

КонецПроцедуры // ПриОткрытии()

29 ZDenis

28.06.09

✎

21:37

Вместо
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка |ВертикальнаяСекция");
надо
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка +"|ВертикальнаяСекция");
иначе ругаться будет и т.д везде.
ВертикальнаяСекция - так назвал секцию? а то я просто пример привел

30 Касандер72

28.06.09

✎

21:51

(29) спроси лучше , а они (вертикальные секции) вообще у него есть?

31 а лю 427

28.06.09

✎

21:54

в общем - автору тяму не хватит сделать вывод 2-х экземпляров в две колонки...

32 Касандер72

28.06.09

✎

21:55

(29) спроси лучше, а они (вертикальные секции) вообще у него есть?
а я пока под стол ....

33 IgNat

28.06.09

✎

22:24

(29) не ругается, но ничего и не изменилось.
"ВертикальнаяСекция - так назвал секцию? а то я просто пример привел" - поясните, пжл. Спасибо

(32) Зачем спрашивать? Код внешней печатной формы приведён полностью. Если у Вас есть, что сказать, то будьте добры, скажите :).

(31)что значит "...не хватит сделать..."?

34 ZDenis

28.06.09

✎

22:32

(33) Не знаю получиться ли объяснить. Заходишь в таблицу. И как в екселе выделяешь вверху печатную область. Далее меню Таблица - включить в секцию и называешь ее "ВертикальнаяСекция".

35 Касандер72

28.06.09

✎

22:33

(34) Ну-ну, ни пуха ... Я назад под стол ...

36 Prikum

28.06.09

✎

22:34

(34) Может быть проще объяснить как скопировать колонки таблицы, рядом и имеющемся? Тогда не придется менять код!

37 ZDenis

28.06.09

✎

22:38

(36) а все равно выделять одно и тоже надо, поэтому не проще объяснить))

38 Касандер72

28.06.09

✎

22:47

По ходу на основании (14) - у него нет вертикальных колонок, если только не СекцСкидка="|...", тогда:
1) Необходимо вернуть код из (14) назад,
2) Выделить все заполненные колонки и нажать Ctrl+C;
3) Выделить следующую за последней колонку и Ctrl+V;
4) Заменить ИсхТабл.ПараметрыСтраницы(,,,,,,,,,1,,); на ИсхТабл.ПараметрыСтраницы(2,,,,,,,,,1,,);
Должно сработать ... наверное ...

39 IgNat

28.06.09

✎

23:50

(38)после п.3 как сохранить, чтобы осталось в самой печатной форме sale.ert?

40 IgNat

29.06.09

✎

00:10

(39) Разобрался. Вроде, получилось :). Осталось проверить на рабочей базе.
Спасибо, всем откликнувшимся :) Касандер72, отдельное спасибо! за возможное, элегантное решение ;)

41 IgNat

29.06.09

✎

19:10

Выявилась маленькая проблемка, не связанная с решением, т.к. изначально присутствует в 1с. При печати многостраничной накладной, на следуюшие после 1-ой страницы не переносится шапка таблицы: Наименование, Количество и т.д.
Где/Как можно подправить? Спасибо

42 Shaman100M

29.06.09

✎

20:01

ПовторятьПриПечатиСтроки(<?>,);
Синтаксис:
ПовторятьПриПечатиСтроки(<НачСтрока>,<КонСтрока>)
Назначение:
Задать строки результирующей таблицы, повторяющиеся при печати в начале каждой страницы.
Параметры:
<НачСтрока> - номер первой строки повторения.
<КонСтрока> - номер последней строки повторения.

43 IgNat

29.06.09

✎

22:19

нашёл только это:
// Секция Шапка таблицы
ИсхТабл.ВывестиСекцию("ШапкаТаблицы" + СекцСкидка);
КонПовт = НачПовт + ИсхТабл.ВысотаСекции("ШапкаТаблицы" + СекцСкидка);
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);

44 Касандер72

29.06.09

✎

22:27

Открой шаблон и посмотри: с какой по какую строку у тебя то, что нужно повторять при печати

45 IgNat

29.06.09

✎

23:12

В ТЧ оказывается две шапки: простая и со скидкой. Идут друг под другом.
1-ая: 15-18 стр
2-ая: 20-23 стр

46 Касандер72

29.06.09

✎

23:28

Тады пробуй:
ПовторятьПриПечатиСтроки(15,18);
или
ПовторятьПриПечатиСтроки(20-23);

47 IgNat

29.06.09

✎

23:56

(46) т.е. выглядит это так:
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);
?

48 IgNat

29.06.09

✎

23:57

(46)
ИсхТабл.ПовторятьПриПечатиСтроки(15-18);
или
ИсхТабл.ПовторятьПриПечатиСтроки(20-23);
или
ИсхТабл.ПовторятьПриПечатиСтроки(15-23);

49 ZDenis

30.06.09

✎

00:01

(48) у тебя в модуле уже прописано
ИсхТабл.ПовторятьПриПечатиСтроки(НачПовт + 1, КонПовт);
должно выводить все. Ты как проверяешь что у тебя шапки нет? В предварительном просмотре или именно напечатав?

50 IgNat

30.06.09

✎

01:57

(49) У меня принтера нет, проверяю в: FinePrint, Microsoft Office OneNote 2007, Microsoft Office Document Image Writer. Завтра проверю на реальном принтере. Спасибо

51 AhtungG

30.06.09

✎

10:19

(0 - ...) может автору не стоит ТАК заморачиваться?
Настроить один и тот же принтер с разными настройками ..
К примеру, у нас настроены \\Printer и \\Printer_2side для двухсторонней.
Один раз от каждого юзера отправить как ему надо .. и безо всяких переделок - готово

52 AhtungG

30.06.09

✎

10:23

а то мне кажет обсуждение от (0) в сторону ушло )

53 Касандер72

30.06.09

✎

10:24

Сори, трохи обшибся - нужно так:

ИсхТабл.ПовторятьПриПечатиСтроки(15,18);
или
ИсхТабл.ПовторятьПриПечатиСтроки(20,23);
или
ИсхТабл.ПовторятьПриПечатиСтроки(15,23);

54 Дятелище 1с

30.06.09

✎

10:41

(0)А было у меня такое только два акта на одной стр