Имя: Пароль:
1C
1С v8
Два экземпляра накладной на одной странице
0 CrtlC
 
27.12.18
10:50
1С:Предприятие 8.3 (8.3.12.1616) - Бухгалтерия для Украины, редакция 2.0. (2.0.13.1);

Нужно сделать два экземпляра накладной на одной странице формата "А4".

Сначала ковырял параметры табличного документа, но если в параметрах указать 2 страницы, то при печати вылазит только один екземпляр.

Решил дописать так:
    ТабДокументДвойной = Новый ТабличныйДокумент;
    ТабДокументДвойной.Вывести/Присоединить(ТабДокумент);
    ТабДокументДвойной.Вывести(ТабДокумент);
    ТабДокументДвойной.АвтоМасштаб = Истина;


Но теперь проблема в том, что на просмотр выводит два экземпляра на странице, а при нажатии на кнопку "Печать" вылазит один экземпляр на всю страницу (по стандарту).
Если напечатать через: "Файл" - "Печать", тогда всё как надо.

Кэш чистил.

Подскажите в чем проблема.
1 Галахад
 
гуру
27.12.18
11:01
Чо? ТабДокументДвойной.Вывести/Присоединить(ТабДокумент);
2 CrtlC
 
27.12.18
11:03
(1) Ну типа или Вывести или Присоединить, разницы нет
3 Гипервизор
 
27.12.18
11:06
(0) Чаво?? Экземпляров на страницу - 2, число копий - 2. Все. Конфигуратор здесь не нужен.
4 CrtlC
 
27.12.18
11:09
(3) Нужен, если б можно было так просто сюда б не писал...
5 Гипервизор
 
27.12.18
11:13
(4) Так просто можно. Я так печатаю. А вы пробовали? Или о каких-то условиях умалчиваете.
6 Галахад
 
гуру
27.12.18
11:15
Наверное в общей форме печати перенастройка выполняется.
7 CrtlC
 
27.12.18
11:16
(5) Клиент печатает много накладных и для разных контрагентов нужно то два экземпляра на страницу то один, поэтому надо сделать еще кнопку для двойной печати.
8 CrtlC
 
27.12.18
11:18
(6) Отслеживал, но не смог найти где выполняется перенастройка, подумал, что кэш, но нет.
9 Галахад
 
гуру
27.12.18
11:28
(8) Используй замер производительности. Отсортируй по колонке "Модуль" и увидишь, какие модули вообще используются.
10 Гипервизор
 
27.12.18
11:40
(7) Пусть так, но принцип тот же.
ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать("C:\просто_для_примера.xls");
ТабДок.АвтоМасштаб = Истина;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДок.ЭкземпляровНаСтранице = 2;
ТабДок.КоличествоЭкземпляров = 2;
//Здесь функция вывода на печать из вашей конфы
УниверсальныеМеханизмы.НапечататьДокумент(ТабДок,, Истина);
11 CrtlC
 
27.12.18
11:46
(10) Спасибо, так делал, но количество экземпляров не меняется. У Вас так работает?
12 CrtlC
 
27.12.18
11:46
(9) Спасибо, сейчас попробую.
13 CrtlC
 
27.12.18
17:14
Если кому интересно, то решил так:

В модуле формы "ПечатьДокументов" дописал

Если ТабличныеДокументы.Количество() > 0
        И ОбъектыПечати.Количество() > 0
        И ТипЗнч(ОбъектыПечати[0].Значение) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
        
        ТабличныеДокументы[0].Значение.Напечатать();
        Возврат;
    КонецЕсли;


В процедуре "Печать".


Теперь печатает двойной документ без пред осмотра, но клиенту так норм.
14 CrtlC
 
27.12.18
17:15
(9) Спасибо, Галахад, еще раз, твой совет помог!
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший