Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
15 Дек 2017, 19:07
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Печать документа MS Word в формате А5  (Прочитано 3561 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ForMan1C

  • *
  • Сообщений: 4
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2010-12-08
  • Сайт: 
  • Профессия: Ученик 1С
Добрый день!

Есть проблема:
- Открыть документ MS Word (бланк-форма),
- Забить в таблицу данные,
- вывести на печать (А4 или А5 по ситуации).

Все вроде ничего работает:
Попытка
Ворд=СоздатьОбъект("Word.Application");
Ворд.Visible = 0;

Исключение 
Сообщить("Ошибка!!! Программа MS Word не установлена."); 
Возврат;
КонецПопытки;

Попытка
Бланк=Ворд.Documents.Open("zzzzzzzz.doc",,,,"1234");
Исключение
Сообщить("Ошибка!!! Файл бланка не найден!");   
Возврат;
КонецПопытки; 

Таблица1=БланкУК.Tables(2);
Таблица2=БланкУК.Tables(3);
Таблица3=БланкУК.Tables(4);

Таблица1.Cell(1,2).Range().Text=РегНомерЖурнала;
        ...........................................
Таблица2.Cell(1,5).Range().Text=Прав("0"+Строка(ДатаЧисло(ДатаДок)),2);     
Таблица3.Cell(1,7).Range().Text=Прав("0"+Строка(ДатаМесяц(ДатаДок)),2);

       Ворд.PrintOut();

Вот этот кусок кода работает но это для формата А4.

Косяк возникает при печати А5:

Ворд.PrintOut(1,0,0,"","","",0,1,"",0,0,1,"","0",0,0,0,"8390","11905"); 

Все равно печатает А4.

Решил написать vbscript:
 
ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
  ScrptCtrl.Language = "vbscript";
  ScrptCtrl.AddCode("
  |Sub PrintA5()
  | PrintOut PrintZoomPaperWidth:=8390, PrintZoomPaperHeight:=11905
  |End Sub
  |");
 
  ScrptCtrl.Run("PrintA5");

Выдает ошибку:

ScrptCtrl.AddCode("
{Документ.Удостоверение.Форма.Модуль(182)}: Ошибка компиляции Microsoft VBScript: Предполагается наличие инструкции

Люди добрые помогите, кто чем может.
А то реально уже зае-------ло.



Теги:
 


* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
180 Сообщений
ilyay ilyay
69 Сообщений
alex0402
54 Сообщений
oleg-x
48 Сообщений
AIFrame
46 Сообщений
andron81_81
44 Сообщений
MuI_I_Ika MuI_I_Ika
33 Сообщений
Golickoff Golickoff
31 Сообщений
BuhRust
30 Сообщений
Dima Dddd Dima Dddd
26 Сообщений

* Кто онлайн

  • Точка Гостей: 285
  • Точка Скрытых: 0
  • Точка Пользователей: 2
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal