Не могу распечатать html макет

1С v8

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) Спасибо!)