Имя: Пароль:
1C
 
Множественная печать табличного документа с рисунком
0 Сергей Роспатнюк
 
26.10.18
15:08
Проблема такая есть печатная форма в макете рисунок когда печать идет на одного сотрудника все норм, но если выбрать много тогда масштаб первой картинки ползет и заполняет только первые 2 страницы как на одного сотрудника, вопрос как получить 2й 3й 4й nй рисунок ?

    
    Масштаб_X1    = 0.9235;    // Масштаб страницы 1
    Масштаб_Y1    = 0.9903;    // Масштаб страницы 1
    Смещение_X1    = 4;    
    
    Масштаб_X2    = 0.929;    // Масштаб страницы 2
    Масштаб_Y2    = 1.0283;    // Масштаб страницы 2
    Смещение_X2    = 2;    
    
    //--- Страница 1
    
    ОбластьСтраница1    = МакетДок.ПолучитьОбласть("Страница1");
    
    ТаблДок.Вывести(ОбластьСтраница1);
    
    Вр    = ТаблДок.Рисунки.D1;            
    
    Вр.Высота    = Вр.Высота * Масштаб_Y1;
    Вр.Ширина    = Вр.Ширина * Масштаб_X1;            
    Вр.Лево        = Вр.Лево + Смещение_X1;
    
    ТаблДок.ВывестиГоризонтальныйРазделительСтраниц();
    
    //--- Страница 2
    
    ОбластьСтраница2    = МакетДок.ПолучитьОбласть("Страница2");            
    
    ТаблДок.Вывести(ОбластьСтраница2);
    
    Вр    = ТаблДок.Рисунки.D2;            
    Вр.Высота    = Вр.Высота * Масштаб_Y2;    
    Вр.Ширина    = Вр.Ширина * Масштаб_X2;    
    Вр.Лево        = Вр.Лево + Смещение_X2;
//--- Страница 1
    Если Истина Тогда
        
        Коэффициент_Х    = Масштаб_X1;                
        Масштаб_Х        = 3.85 * Масштаб_X1;                
        Смещение_X        = 0.3 + Смещение_X1;
        Смещение_Y        = 0;
        
        //---------------------   Х,        Y    
        
        ВывестиСтроку(Масштаб_X1 * 5,        58,        Данные.КудаПредоставляется1,            Истина,,, Истина);    // "1БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩьЫЪЭЮЯ0123456789", Истина);
        ВывестиСтроку(Масштаб_X1 * 5,        63,        Данные.КудаПредоставляется2,            Истина,,, Истина);    // "2БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩьЫЪЭЮЯ0123456789", Истина);
        ВывестиСтроку(Масштаб_X1 * 4.8,        75.3,    Данные.ЭтоЮридическоеЛицо,                Истина,,, Истина);    // "3", Истина);
        ВывестиСтроку(Масштаб_X1 * 5,        108.7,    Данные.ВидЭкономическойДеятельности,    Истина,,, Истина);    // "3БВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩьЫЪЭЮЯ0123456789", Истина);

и т.д вывод строк
1 Сергей Роспатнюк
 
26.10.18
15:19
(0) что самое странное Имя рисунка в макете D16
а получаю я его как D1 (Вр    = ТаблДок.Рисунки.D1)
2 Сергей Роспатнюк
 
26.10.18
17:04
тишина... ну раз так можно и закрыть