Попытка
       Excel         = Новый  COMОбъект("Excel.Application") ;
   Исключение
       Excel.Workbooks.Close();
       Сообщить("Размещение файла недоступно или другая ошибка доступа.", СтатусСообщения.Важное);
       Возврат;
   КонецПопытки;
   
   
   Режим = "123йцу";
   Excel.Application.Workbooks.Add(1);
   
   ПрайсКнига = Excel.Workbooks.Item(1);
   ПрайсЛист = Excel.ActiveSheet;
   ПрайсЛист.Name = "Первый";
   ПрайсЛист.Cells(4, 2).Value = "Данные на дату: " +  ТекущаяДата() + ". Прайс-лист действителен в течение одного дня.";
   ПрайсЛист.SaveAs("C:\" + Режим + ".pdf", "xlHtml");
   Excel = Неопределено;

НА компе стоит Excel 2007 он может сохранить в pdf. Пытаюсь программно это сделать, но не открывает файл pdf т.к. формат файл не поддерживается или файл поврежден. Может, кто делал, подскажите??????????

Обязательно через excel или можно сразу в пдф?

Всмысле, прайс только в екселе? или берутся из 1с данные?

(1)
Нужно excel сохранить в pdf
(2)
Беруться из 1С

(3) ПрайсЛист.SaveAs("C:\" + Режим + ".pdf", "xlHtml"); xlHtml-очень странный параметр для сохранения в PDF

Для Windows у меня реализовано так
Попытка
       Принтер=Новый ComObject("Bullzip.PDFPrinterSettings");
       принтер.SetValue("output", ИмяФайла);
       принтер.SetValue("ShowSaveAS", "never");
       принтер.SetValue("ShowProgress", "no");
       принтер.SetValue("ShowProgressFinished", "no");
       принтер.SetValue("ShowSettings", "never");
       принтер.SetValue("ShowPDF", "no");
       принтер.SetValue("ConfirmOverwrite","no");
       принтер.SetValue("OwnerPassword","");
       принтер.SetValue("Permissions",61636);
       принтер.WriteSettings();
       Таб.Автомасштаб=Истина;
       Таб.Имяпринтера="Bullzip PDF Printer";
       
       Таб.Напечатать(Истина);
       PDFФайл = Новый Файл(ИмяФайла);
       
       Пока  НЕ PDFФайл.Существует() Цикл
           ОбработкаПрерыванияПользователя();
       КонецЦикла;            
               
   Исключение
       Сообщить(ОписаниеОшибки());
       Сообщить("Не установлен виртуальный принтер!");
   КонецПопытки;    
для Linux
Попытка
   Таб.ИмяПринтера = "Generic-CUPS-PDF-Printer";    
   Таб.Напечатать(Истина);
Исключение
   Сообщить(ОписаниеОшибки());
   Сообщить("Не установлен CUPS-PDF или не создан каталог PDF в домашней папке пользователя!");
КонецПопытки;

В случае с виндой стоит BullZip PDF Printer

А не через принтер виртуальный возможно!!!

А я хз, у нас организация не настолько богатая, чтоб MS Office ставить =)

закладка

(8)
Что "закладка"?

(5) для 2007 офиса есть родная скачиваемая надстройка от мелкомягких (в бете была в составе, но по требованию Adobe убрали),позволяющая сохранять в PDF без виртуального принтера, причем очень быстрая (попробуй отправить на виртуальник документ в 1000 листов).

узнал что офис2007 может сохранять в пдф... удивлен...

(11) для неверующих: http://www.youtube.com/watch?v=liihH3v0Nak

Так! Смотрим тут: http://msdn.microsoft.com/en-us/library/bb241279(office.12).aspx

PDF-Format
The pdf format is not listed here. However it has number 57.

Так что тебе надо

ПрайсЛист.SaveAs("C:\" + Режим + ".pdf", 57);

(13)
Спасибо!!!!

А как сохранить всю книгу, а не один лист в ПДФ? Как указать нужные параметры?

А как сохранить всю книгу, а не один лист в ПДФ?

Попытка
       Excel         = Новый  COMОбъект("Excel.Application") ;
   Исключение
       Excel.Workbooks.Close();
       Сообщить("Размещение файла недоступно или другая ошибка доступа.", СтатусСообщения.Важное);
       Возврат;
   КонецПопытки;
   
   
   Режим = "123йцу";
   Excel.Application.Workbooks.Add(1);
   
   ПрайсКнига = Excel.Workbooks.Item(1);
   ПрайсЛист = Excel.ActiveSheet;
   ПрайсЛист.Name = "Первый";
   ПрайсЛист.Cells(4, 2).Value = "Данные на дату: " +  ТекущаяДата() + ". Прайс-лист действителен в течение одного дня.";
   ПрайсЛист.SaveAs("C:\" + Режим + ".pdf", 57);
   Excel = Неопределено;


ВОПРОС. Как указать параметры в SaveAs, что бы сохранить всю книгу в PDF, а не один лист?

(17) у вас превышен лимит на количество вопросов за один час...

(18)
Это хорошо или плохо?)
А по существу?

В VD пишеться так
ChDir "C:\"
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "C:\?????-???? ??????? 3_PDF.pdf", Quality:=xlQualityMinimum, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False

в 1 с Пытаюсь написать так
ПрайсЛист.SaveAs("C:\" + Режим + ".pdf","xlTypePDF","xlQualityMinimum","True","False","False");

{Форма.Форма(19)}: Ошибка при вызове метода контекста (SaveAs): Произошла исключительная ситуация (0x800a03ec)
   ПрайсЛист.SaveAs("C:\" + Режим + ".pdf","xlTypePDF","xlQualityMinimum","True","False","False");

в VB (Visual Basic)

Ап!!!!!

Коллеги, а как бы еще так исхитрится чтобы при сохранении PDF не разбивал криво на листы. У меня, например, в Excel форма ТОРГ-12 горизонтально ориентированная, а при сохранении ее PDF тупо режет на 2 вертикальных листа. :(