Вход | Регистрация


Множественная печать табличного документа с рисунком

Множественная печать табличного документа с рисунком
Я
   Сергей Роспатнюк
 
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
тишина... ну раз так можно и закрыть

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует