VPF::Распечатка HTML документов - Форум программистов

<Spawn>

Дата 23.7.2005, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Есть некоторые html документы, внутри которых имеются специальные теги типа <#he_header#>, за место которых будут подставляться шаблоны. Проблема в распечатке документов - необходимо чтобы заголовки и подвалы документов печатались на каждой странице(<#he_header#>, <#he_footer#>). Пока не знаю даже как это сделать. Думал, что можно загнать html документ в Word, а там расставить колонтитулы, но при открытии html документа в нем, он отображается одной страницей, т.е. видимо ни чего из этого не выйдет. У кого нить есть хотя бы предположения решения данной проблемы?

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Girder

Дата 23.7.2005, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Цитата

но при открытии html документа в нем, он отображается одной страницей, т.е. видимо ни чего из этого не выйдет.

Вид -> Колонтитулы

--------------------

Как слышим, так и пишим.
Истина где-то там...

Pakshin A. S.

Дата 23.7.2005, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Т. е. есть такой хтмл?

Цитата

<html>
<#header#>
<body>
Hellow? world!!!
</body>
</html>

А на выходе

Цитата

<html>
<head>
<title>::Test file::</title>
</head>
<body>
Hellow? world!!!
</body>
</html>

Может тогда через StringReplace? Вроде скорость нормальная будет... smile

<Spawn>

Дата 24.7.2005, 07:20 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Pakshin A. S. Дак это понятно. С подменой проблемы нет!!! Нужно чтобы при распечатке документа Заголовок и Подвал документа были на каждой странице.

--------------------

Pakshin A. S.

Дата 24.7.2005, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Типа такого?
1) Если <#he_head#> не найден в документе, то встивить его после тега <html>

Код


if Pos('<head>', RichEdit1.Text) = 0
 then
  RichEdit1.Text:=StringReplace(RIchEdit1.Text, '<html>', '<html>' + #10 + #13 + headerstring, [])
 else
  if Pos('headerwithouttagsstring', RichEdit1.Text) = 0
   then
    RIchEdit1.Text:=StringReplace(RicheEdit1.Text, '<head>', '<head>' + #10 + #13 + headerwithouttagsstring, []);

2) по аналогии...

Вроде так?

Или просто вставлять тег шапки <#he_head#>?

Код


if Pos('<#he_head#>', RichEdit1.Text) = 0
 then
  RichEdit1.Text:=StringReplace(RIchEdit1.Text, '<html>', '<html>' + #10 + #13 + '<#he_head#>', [])

Это сообщение отредактировал(а) Pakshin A. S. - 24.7.2005, 09:33

<Spawn>

Дата 24.7.2005, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Pakshin A. S.Ты меня не понял... Подставить текст я смогу - это элементарнийшие операции. Проблема в распечатке документа - при выводе на печать HTML страницы, если она не помещается на одной, то она разбивается на несколько страниц. И мне нужно что бы заголовок и подвал документа были отображены на каждой странице, не зависимо от того, как они прописаны в самом HTML документе.

--------------------

Pakshin A. S.

Дата 24.7.2005, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Понял...
А где печать происходит?

<Spawn>

Дата 24.7.2005, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Pakshin A. S. В браузере IE smile

--------------------

Pakshin A. S.

Дата 24.7.2005, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

тогда че-то не понял... smile

<Spawn>

Дата 25.7.2005, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Цитата(Girder @ 23.7.2005, 21:24)

Цитата

но при открытии html документа в нем, он отображается одной страницей, т.е. видимо ни чего из этого не выйдет.

Вид -> Колонтитулы

Спасибо, осталось только программную реализацию сделать smile

--------------------

p0s0l

Дата 27.7.2005, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Если я правильно понял, то нужно делать что-то типа этого, только вставлять нужный текст:

Код

uses ComObj;

const
  wdSeekCurrentPageHeader = $00000009;
  wdSeekCurrentPageFooter = $0000000A;

procedure ...;
var
  WordApp    : OLEVariant;
  Doc        : OLEVariant;

begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Add('d:\1.doc');
  WordApp.Visible := False;
  Doc := WordApp.ActiveDocument;
  Doc.ActiveWindow.View.SeekView := wdSeekCurrentPageHeader;
  Doc.ActiveWindow.Selection.Text := '1234';
  Doc.ActiveWindow.View.SeekView := wdSeekCurrentPageFooter;
  Doc.ActiveWindow.Selection.Text := '5678';
  Doc.SaveAs('d:\2.doc');
  WordApp.Quit;
end;

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 28.7.2005, 04:30 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

p0s0l Спасибо, но я уже все сделал smile

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »