Камрады, привет!

Такой глюк при программном сохранении в pdf.
http://hostingkartinok.com/show-image.php?id=94e5228b3ce554aa2d2dadfe466ce53e
Причем если вывожу документ на экран и сохраняю через файл-сохранить как pdf то сохраняет нормально.
Этот блок дописан руками, а так если важно то Управление небольшой фирмой, редакция 1.2 (1.2.1.8), (8.3.4.482). Платформу обновить пока нет возможности.

параметры документа:
    ТабличныйДокумент.АвтоМасштаб = Истина;
    ТабличныйДокумент.Защита = Ложь;
    ТабличныйДокумент.ТолькоПросмотр = Ложь;
    ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    ТабличныйДокумент.НижнийКолонтитул.Выводить = Истина;
    ТабличныйДокумент.РазмерКолонтитулаСнизу  = 7;
    ТабличныйДокумент.ВерхнийКолонтитул.Выводить = Истина;
    ТабличныйДокумент.РазмерКолонтитулаСнизу  = 7;
    ТабличныйДокумент.НижнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
    ТабличныйДокумент.НижнийКолонтитул.НачальнаяСтраница = 1;
    ТабличныйДокумент.ВерхнийКолонтитул.ВертикальноеПоложение = ВертикальноеПоложение.Верх;
    ТабличныйДокумент.ВерхнийКолонтитул.НачальнаяСтраница = 1;
    ШрифтКолонтитула = Новый Шрифт("Times New Roman", 8,,Истина);
    ТабличныйДокумент.НижнийКолонтитул.Шрифт = ШрифтКолонтитула;
    Номер = СправочникДоговор.НомерДоговора;
    ТабличныйДокумент.НижнийКолонтитул.ТекстСлева = "Договор №" + номер +" от "+ Формат(СправочникДоговор.ДатаДоговора,"ДФ=dd.MM.yyyy") ;
    ТабличныйДокумент.НижнийКолонтитул.ТекстСправа = "стр."+ "[&НомерСтраницы] из [&СтраницВсего]" ;
    ТабличныйДокумент.ИмяПараметровПечати = "Договор_";

Кусок кода с сохранением в pdf

    ТабДокДоговор.КоличествоЭкземпляров = 1;
    ТабДокДоговор.ТолькоПросмотр = истина;
    СтруктураПисьма = Новый Массив;
    СтруктураПисьма.Добавить(ПолучитьИмяВременногоФайла()+".PDF");
    ТабДокДоговор.Записать(СтруктураПисьма[0],ТипФайлаТабличногоДокумента.PDF);
    Получатель = РаботаСПочтовымиСообщениями.ПолучитьАдресПочты();
    Если НЕ ЗначениеЗаполнено(Получатель) Тогда
        Сообщить("У сотрудника не заполнен адрес почты");
        Возврат;
    КонецЕсли;
    ЗапасыПроизводствоКлиент.ОтправкаПисьма("Комплект документов в PDF формате, с подписью",Строка(ПараметрКоманды),Получатель,СтруктураПисьма);

Пробовал увеличить размер колонтитулов, не помогло...

(0) Показана картинка просмотра или кусок реального PDF?

Кусок записанного pdf.

Сохранение табличного документа в формат PDF
Код ошибки: 10148288
Код(ы) обращения: SW957202
Статус: Исправлена в тестовой версии Зарегистрирована: 22.07.2015
Исправлена:
"Технологическая платформа", версия 8.3.6.2204 (для тестирования)
Описание:
При сохранении табличного документа, содержащего картинки, в формат PDF происходит обрезание документа по левой и верхней стороне.

исправлено вроде в тестовой версии 8.3.6.2204

У меня снизу обрезает вроде как. Но все равно спасибо!

(7) Все равно попробуй - расскажешь, вполне возможно твоя трабла тоже решена

(8) Ок, спасибо, попробую, опишусь!

(8) Смена платформы ни чего не дала :(
Есть еще мысли у кого по этой проблеме?

Может при сохранении в pdf еще нужно какие то параметры документа прописывать?

Апну, может кто новый появился кто подскажет :)

(12) Только что делал, но у меня чуть другая схема, я гружу из экселя, но для визуальности вывожу пользователю в поле html pdf, не правильно конвертировало, разбивало постранично, может поможет чем, вот так поборол это:

&НаСервере
Процедура ЗагрузитьНаСервере(ПутьКФайлу)
    
    Эксель=Новый COMОбъект("Excel.Application");
    
    Эксель.WorkBooks.Open(ПутьКФайлу,,Ложь);
    
    //Эксель.
    
    ЛистЭксель=Эксель.Sheets(1);
    
    Эксель.ActiveSheet.PageSetup.zoom=Ложь; //уместим на одной странице в ширину
    Эксель.ActiveSheet.PageSetup.FitToPagesWide = 1; //уместим на одной странице в ширину
    Эксель.ActiveSheet.PageSetup.FitToPagesTall = 10; //и на 10 в длину
        
    ФайлИсходящий =СтрЗаменить(СтрЗаменить(ПутьКФайлу, ".xls", ".pdf"),".pdfx",".pdf");
    
    ЛистЭксель.ExportAsFixedFormat(0,ФайлИсходящий , 0,истина,Ложь,1,,Ложь,); // Конвертируем в pdf, что бы показать
                                                                               // на форме пользователю

    ВсегоКолонок = ЛистЭксель.Cells(1,1).SpecialCells(11).Column;
    ВсегоСтрок = ЛистЭксель.Cells(1,1).SpecialCells(11).Row;

    ПолеHTML=ФайлИсходящий;
    
    //УдалитьФайлы(ФайлИсходящий);
    
    Эксель.Quit();

КонецПроцедуры

(13) Спасибо, но в моем случае не поможет к сожалению

Апну

(15) BullZIP PDF - управляемый принтер, попробуй через него

(16) 100 юзерам установить?

(17) Доменной политикой хоть 1000