Имя: Пароль:
1C
1С v8
Как программно поставить печать ландшафт?
, ,
0 nlira
 
17.08.11
15:07
Добрый день уважаемые умы!!!
как настроить 1с чтобы те доки,которые указала ТабДок.ОриентацияСтраницы = ТабДок ориентацияСтраницы.Ландшафт печатал в альбомном формае, а те доки в которых поставила:ТабДок.ОриентацияСтраницы = ТабДок ориентацияСтраницы.Портрет печатал бы в портретном формате. Чтобы каждый раз не лезть в настройки пользователям.
Или может быть как то программно можно сделать?
1 mikecool
 
17.08.11
15:08
(0) разные табличные документы формировать и печатать
2 butterbean
 
17.08.11
15:09
вот того что написано должно быть достаточно
3 nlira
 
17.08.11
15:09
так я разные табДоки и формирую
4 mikecool
 
17.08.11
15:09
+1 ессно программно, у меня не получилось вывести три страницы у которых 1 и 3 портрет, а 2-я ланшафт
только разными таб докуми
5 nlira
 
17.08.11
15:10
что бы не ставила печатает в портретном формате,пока в настройки принтера не залезешь и вручную не поставишь альбомный
6 nlira
 
17.08.11
15:10
у меня они абсолютно разные доки
7 mikecool
 
17.08.11
15:11
ТабДокумент = Новый ТабличныйДокумент;
...
   ТабДокумент.Вывести(Лист1);
   
   ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент);                      
   ТабДокумент.Очистить();
...
   ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент);                      
   ТабДокумент.Очистить();
типа так
8 nlira
 
17.08.11
15:11
через отдельные функции каждая форма сделана
9 butterbean
 
17.08.11
15:11
(6) это внешние печ. формы?
10 nlira
 
17.08.11
15:11
а вот очистить у меня нет,сейчас попробую
11 butterbean
 
17.08.11
15:12
(9)+ хотя неважно, нужно еще ИмяПараметровПечати задать как в типовых формах
12 nlira
 
17.08.11
15:12
да,внешние
13 nlira
 
17.08.11
15:13
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
           
            Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
                Возврат;
            КонецЕсли;
            // Получить экземпляр документа на печать
            Если ИмяМакета = "ЭтикеткаПросчета" Тогда
                ТабДокумент = ПечатьЭтикеткаПросчета();  
                КоличествоЭкземпляров =1;
                ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
            ИначеЕсли ИмяМакета = "ЛистПросчета" Тогда
                ТабДокумент = ПечатьЛистПросчета();
            ИначеЕсли ИмяМакета = "ВедомостьПросчета" Тогда
                ТабДокумент = ПечатьВедомостьПросчета();
                КоличествоЭкземпляров =1;
                ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
14 nlira
 
17.08.11
15:13
например
15 mikecool
 
17.08.11
15:14
какая разница - какие формы? если возвращают таб документы - то и работать надо с ними
16 nlira
 
17.08.11
15:14
в конце: Если ТабДокумент <> Ложь Тогда
                УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ЭтотОбъект.Метаданные().Представление()));
            КонецЕсли;
17 nlira
 
17.08.11
15:16
эй,все равно портретом печатает,блин
18 nlira
 
17.08.11
15:16
что не так?
19 mikecool
 
17.08.11
15:17
(17) ОриентацияСтраницы  не игнорируется ли?
может в ОМ где косячит? ибо у меня работает (7)
20 nlira
 
17.08.11
15:18
Если ИмяМакета = "ЭтикеткаПросчета" Тогда
                ТабДокумент = ПечатьЭтикеткаПросчета();  
                КоличествоЭкземпляров =1;
                ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
               
           
                //ИначеЕсли ИмяМакета = "ЗаданиеНаКорретировкуВWMSПоРезультатамИнвентаризации" Тогда
                //    ТабДокумент = ПечатьЗаданиеНаКорретировкуВWMSПоРезультатамИнвентаризации();
            КонецЕсли;
            Если ТабДокумент <> Ложь Тогда
                УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ЭтотОбъект.Метаданные().Представление()));
            КонецЕсли;
21 mikecool
 
17.08.11
15:19
оттрасируй УниверсальныеМеханизмы.НапечататьДокумент - где меняется установленная тобой ОриентацияСтраницы
22 nlira
 
17.08.11
15:20
нигде не меняется,до конца посмотрела,ландшафт стоит блински,а печатает портретом
23 kotletka
 
17.08.11
15:20
а принтер вообще может печатать ландшафт? может дрова кривые
24 nlira
 
17.08.11
15:21
когда на просмотр нажимаешь,вручную меняем свойсва на ландшаффт,тогда превращается в ландшафт
25 nlira
 
17.08.11
15:21
да,нет с дровами вссе нормально
26 nlira
 
17.08.11
15:23
весь инет перерыла,нет ничего
27 mikecool
 
17.08.11
15:27
где то есть указание ПараметрыПечати?
28 nlira
 
17.08.11
15:29
Люди надо было указать имя параметров печати и все пошло поехало
29 nlira
 
17.08.11
15:29
спасибочки!!!
30 nlira
 
17.08.11
15:38
Да только проблема: после того как поставила имяПараметров печати пропали колонтитулы
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший