Реклама на этом месте
Форум 1С
Форум 1С
Programmers. Accountants. Administrators
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
18 Jan 2021, 01:54
Login with username, password and session length
МультиВход
Welcome, Guest. Please login or register.
Did you miss your activation email?
 

Author Topic: Конвертация Exsel  (Read 2900 times)

0 Members and 1 Guest are viewing this topic.

Offline Feliks1961

  • *
  • Posts: 19
  • РЕПУТАЦИЯ: 0
  • Register: 2010-04-08
  • Website: 
Конвертация Exsel
« Topic Start: 16 Dec 2015, 15:53 »
Конфигурация:
1С:Комплексная автоматизация
//Есть файл екселя. На нем пользователь размещает картинки, схемы, надписи и т.д. в произвольном порядке как ему захочется. Как это все убожество перевести в картинку.
Как конвертировать в PDF знаю.

НовыйПринтер = "Bullzip PDF Printer (Ne05:)";
   
   ИмяФайла = "D:\A\List_1";
   
   xlsФайл = ИмяФайла+".xls";
   JPGФайл = ИмяФайла+".PDF";
   
   Эксель = Новый COMОбъект("Excel.Application");
   Эксель.DisplayAlerts = False;
   Книга = Эксель.WorkBooks.Open(xlsФайл);
   Книга = Эксель.ActiveWorkbook;
   Лист = Книга.WorkSheets(1);
   Лист.PageSetup.Zoom = False;
   Лист.PageSetup.FitToPagesWide = 1; // По ширине листа
   Лист.PageSetup.FitToPagesTall = False;
   Лист.PageSetup.Orientation = 1; // xlPortrait
   
   Эксель.Visible = True;
   
   СтарыйПринтер = Эксель.ActivePrinter;
   Сообщить("Старый - " + Эксель.ActivePrinter);
   
   Эксель.ActivePrinter = НовыйПринтер;
   
   Сообщить("Новый - " + Эксель.ActivePrinter);
   
   Попытка
      ПДФПринтер = Новый ComObject("Bullzip.PDFPrinterSettings");
      ПДФПринтер.SetValue("output", JPGФайл);
      ПДФПринтер.SetValue("ShowSaveAS", "never");
      ПДФПринтер.SetValue("ShowProgress", "no");
      ПДФПринтер.SetValue("ShowProgressFinished", "no");
      ПДФПринтер.SetValue("ShowSettings", "never");
      ПДФПринтер.SetValue("ShowPDF", "no");
      ПДФПринтер.SetValue("ConfirmOverwrite","no");
      ПДФПринтер.WriteSettings();
      Эксель.ActivePrinter = НовыйПринтер;
      Эксель.Worksheets.PrintOut();

   Исключение
      
      Сообщить(ОписаниеОшибки());
      Сообщить("Скорее всего необходимо установить или переустановить ""Bullzip PDF Printer");
   КонецПопытки;
   
   
   Эксель.ActivePrinter =  СтарыйПринтер;
   Сообщить("Новый -Старый -  " + Эксель.ActivePrinter);
   
   Эксель.Quit();

 Но как только ставлю JPGФайл = ИмяФайла+".JPG"; При открытии файла пишет "Файл поврежден или большого размера". Как это побороть?


Offline Feliks1961

  • *
  • Posts: 19
  • РЕПУТАЦИЯ: 0
  • Register: 2010-04-08
  • Website: 
Re: Конвертация Exsel
« Reply #1: 17 Dec 2015, 13:21 »
Решил но не совсем корректно.

Эксель.Worksheets.PrintOut(1,1,2,True);
Эксель.Worksheets.PrintOut();

При настройке Bullzip в качестве файлы указал JPG в качестве временной папки "C:\TEMP\". Единственное интересно, что к имени файла принтер добавляет "1". То есть искать файл надо "C:\TEMP\List_11.JPG".

Offline Ulugbek Kirgizbaew

  • *
  • Posts: 2
  • РЕПУТАЦИЯ: 0
  • Register: 2015-12-28
  • Website: 
Re: Конвертация Exsel
« Reply #2: 28 Dec 2015, 18:47 »
Привет всем. Помогите начинающим, у меня тоже проблема с печатью.
   Попытка
      ОбъектВорд = Новый COMОбъект("Word.Application");
   Исключение
      Сообщить("Ошибка при запуске Microsoft Word: " + ОписаниеОшибки(), СтатусСообщения.Внимание);
      //Возврат Неопределено;
   КонецПопытки;                                                  
   
   
    ОбъектВорд.Documents.Open("D:\1.doc");
   ШаблонВорд = ОбъектВорд.ActiveDocument;

   ШаблонВорд.Application.PrintOut(0,0,0,"","","",0,1,"2");
   //ШаблонВорд.Application.PrintOut(0,0,0,"","","",0,1,Нужное страница пример "2,8-10");
   ОбъектВорд.Application.Quit();
 
Код все нормально работает и даже печатает, но все страницы сразу печатается, а  мне нужно конкретное страница 


Tags:
 


* Реклама

Search

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal