Йоксель - альбомная ориентация

  1. 10 г. назад
    03.03.2014 10:24:44 отредактировано Масянька

    День добрый!
    Как в Йоксель установить альбомную ориентацию?

    	Ошибка = 0;
    
    	Форма.Отправка.Заголовок("Идет формирование письма.");
    
    	Попытка
    		ЗагрузитьВнешнююКомпоненту("SpreadSheet.dll");
    	Исключение
    		Предупреждение("Не удалось загрузить компоненту SpreadSheet.dll.");
    		Ошибка = 1;
    		Возврат Ошибка;
    	КонецПопытки;
    	
    	Йоксель		= СоздатьОбъект("ТабличныйДокумент");
    	Конвертер	= СоздатьОбъект("КонвертерExcel");
    	
    	ВремТабл	= Конвертер.Создать();
    	
    	Йоксель.ЗагрузитьИзТаблицы(ИсхТабл);
    	
    	ВремТабл.Листы.Добавить("СчетФактура", Йоксель);
    	
    	Параметры	=	Йоксель.ПараметрыПечати;
    	Параметры.ПолеСверху	= 10;
    	Параметры.ПолеСнизу		= 10;	
    	Параметры.ПолеСлева		= 10;
    	Параметры.ПолеСправа	= 10;
    	Параметры.АвтоМасштаб 	= 1;
    	Параметры.Ориентация	= 2;
    	
    	//Йоксель.Показать(ИсхТабл);
    	
    	Конвертер = СоздатьОбъект("Йоксель.ГрафическийКонвертер.PDF");
    	
    	Конвертер.ВысотаСтраницы = 297*56.7;
    	Конвертер.ШиринаСтраницы = 210*56.7;
    	Конвертер.КоличествоБитНаПиксел = 24;
    
    	Конвертер.Документ = Йоксель;//это табличный документ от йокселя
    	
    	Конвертер.ПолеСлева 	= 750;
    	Конвертер.ПолеСверху 	= 300;
    	Конвертер.ПолеСправа 	= 0;
    	Конвертер.ПолеСнизу 	= 300;
    	Конвертер.ЗаписатьВФайл(КаталогДляЗаписи);	
    	
    	Йоксель.Очистить();
    
    	Возврат Ошибка;
    

    А сохраняет в книжной....

  2. не понял, вот это:
    Конвертер = СоздатьОбъект("КонвертерExcel");

    для чего?

    на выходе нужен pdf, или xls?

    Ответы: (2)
  3. (1) А что - Конвертер = СоздатьОбъект("КонвертерExcel"); не нужно?
    На выходе (в данном случае) pdf.

    Ответы: (3)
  4. (2) лишний код присутствует.

  5. поменяй местами чиселки для Конвертер.ВысотаСтраницы и Конвертер.ШиринаСтраницы

    Ответы: (11)
  6. 	Йоксель		= СоздатьОбъект("ТабличныйДокумент");
    	Конвертер = СоздатьОбъект("Йоксель.ГрафическийКонвертер.PDF");
    	//Конвертер	= СоздатьОбъект("КонвертерExcel");
    	
    	ВремТабл	= Конвертер.Создать();
    	
    	Йоксель.ЗагрузитьИзТаблицы(ИсхТабл);
    

    Ругается - ВремТабл = Конвертер.Создать();
    {D:\1CV7\ИГРУШКА\EXTFORMS\PRNFORMS\СЧЕТФАКТУРА_EMAIL.ERT(930)}: Поле агрегатного объекта не обнаружено (Создать)

  7.     Йоксель		= СоздатьОбъект("ТабличныйДокумент");
        Йоксель.ЗагрузитьИзТаблицы(ИсхТабл);
        
        Параметры	=	Йоксель.ПараметрыПечати;
        Параметры.ПолеСверху	= 10;
        Параметры.ПолеСнизу		= 10;	
        Параметры.ПолеСлева		= 10;
        Параметры.ПолеСправа	= 10;
        Параметры.АвтоМасштаб 	= 1;
        Параметры.Ориентация	= 2;
        
        Конвертер = СоздатьОбъект("Йоксель.ГрафическийКонвертер.PDF");
        
        Конвертер.ВысотаСтраницы = 210*56.7;
        Конвертер.ШиринаСтраницы = 297*56.7;
        Конвертер.КоличествоБитНаПиксел = 24;
    
        Конвертер.Документ = Йоксель;//это табличный документ от йокселя
        
        Конвертер.ПолеСлева 	= 750;
        Конвертер.ПолеСверху 	= 300;
        Конвертер.ПолеСправа 	= 0;
        Конвертер.ПолеСнизу 	= 300;
        Конвертер.ЗаписатьВФайл(КаталогДляЗаписи);	
        
        Йоксель.Очистить();
    
    Ответы: (7) (11)
  8. (6) Спасибо - не ругается, но все равно - ориентация альбомная.
    Чего не так-то?

    Ответы: (8)
  9. (7) скинь-ка сюда свою обработку, а то издалека плохо видно

    Ответы: (10)
  10. (8) Аа-а-а-а-а! Нашла!!!!!!!

        Конвертер.ВысотаСтраницы = 210*56.7;
        Конвертер.ШиринаСтраницы = 297*56.7;
    

    Наоборот надо.

    Ответы: (11)
  11. (10) см. (4) и (6) ;)

    Ответы: (12)
  12. (11) Блин - натуральная блондинка [smile=B)]

  13. Спасибо!

или зарегистрируйтесь чтобы ответить!