Имя: Пароль:
1C
1С v8
 Не могу распечатать html макет
,
☑
0 Alex87r
 
23.05.17
✎
19:16
Привет всем!
УФ.
Хотел сделать красивую печатную форму, но ничего не получается.
Макет в формате html.

Вот код:
    
ТекстовыйДокумент = Новый ТекстовыйДокумент();
    
Макет = ПолучитьМакет("Акт");

ТекстHTML = Макет.ПолучитьТекст();
          ТекстHTML = СтрЗаменить(ТекстHTML, "{Организация}", Стр.Организация);
        ТекстовыйДокумент.УстановитьТекст(ТекстHTML);
        

Возврат ТекстовыйДокумент;    


Печатная форма формируется в виде:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html xmlns:o="urn:schemas-microsoft-com:office:office"><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><meta name="GENERATOR" content="MSHTML 8.00.7601.17514"></meta><style type="text/css">BODY {
    PADDING-BOTTOM: 8px; MARGIN: 0px; PADDING-LEFT: 8px; WIDTH: 100%; PADDING-RIGHT: 8px; HEIGHT: 100%; OVERFLOW: auto; PADDING-TOP: 8px
}
P {
    LINE-HEIGHT: 1.15; MARGIN: 0px
}
OL {
    MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
UL {
    MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
IMG {
    BORDER-BOTTOM: medium none; BORDER-LEFT

Можно вывести этот текст в нормальном формате html?
1 Alex87r
 
23.05.17
✎
20:33
Ну что, есть шансы сделать печатную форму?)
2 Мимохожий Однако
 
23.05.17
✎
20:51
(1) Покажи свою "красивую" печатную форму принтскрином.
3 Alex87r
 
23.05.17
✎
21:04
https://yadi.sk/i/g-9k2PZ73JTDRn
Так текст не съезжает никуда, а когда через табличный документ начал делать - то все криво получается)
4 Мимохожий Однако
 
23.05.17
✎
21:23
(3) Ctrl-P не помогает?
5 Alex87r
 
23.05.17
✎
21:35
(4) неа
6 Alex87r
 
23.05.17
✎
21:58
Может есть у кого пример внешней печатной формы с макетом html?
7 Мимохожий Однако
 
23.05.17
✎
22:03
(6) Есть куча примеров печать из Word
8 Alex87r
 
23.05.17
✎
22:17
(7) Это когда макет active document?
9 Мимохожий Однако
 
23.05.17
✎
22:36
(8) Можно активдокумент, а можно и двоичные данные
10 Alex87r
 
23.05.17
✎
22:39
Пришли мне плиз через двоичные данные) (9)
11 Мимохожий Однако
 
23.05.17
✎
23:04
Есть фрагмент...
рИмяПутьФайла=ПолучитьИмяВременногоФайла("doc");
    мак=ПолучитьМакет("МакетWord");
    Попытка
        мак.Записать(рИмяПутьФайла);
    Исключение
        Сообщить("Проблема при печати, обратитесь к программисту!");
        Возврат;
    КонецПопытки;
    //сообщить(римяпутьфайла);
    
    Word=Новый COMОбъект("Word.Application");    
    //
    Попытка
        
        рФайл=Новый Файл(рИмяПутьФайла);
        Если не рФайл.Существует() Тогда
            Сообщить("Файл шаблона для MS Word с полным именем "+рИмяПутьФайла+" не обнаружен!",СтатусСообщения.Важное);
            Возврат
        КонецЕсли;
        Word.Documents.Add(рИмяПутьФайла);
А дальше заполняй по синтаксису языка Word
12 Alex87r
 
23.05.17
✎
23:13
(11) Спасибо!)