Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Вниз

Вывод на печать из TRichEdit с первой страницы   Найти похожие ветки 

 
3asys   (2002-12-28 11:14) [0]

Вывожу на печать несколько строк, а затем печатаю содержимое TRichEdit. Проблема в том, что вывод на печать содержимого TRichEdit начинается с новой страницы, а мне надо, чтобы печать продолжалась на первой странице, сразу за выведенными вначале (до TRichEdit) строками.
Мой код:
var
P : TextFile;
begin
AssignPrn(P);
Rewrite(P);
Writeln(P,"Проблема: ");
Writeln(P, не используя: ");
Writeln(P, "Текст:");
CloseFile(P);
RichEdit1.Print(RichEdit1.Caption);
end;

Как это сделать?

С Уважением, 3asys


 
3asys   (2002-12-28 13:10) [1]

Это очень срочная проблема!

С Уваженем, 3asys


 
Anatoly Podgoretsky   (2002-12-28 13:17) [2]

Не используй RichEdit1.Print, вместо этого продолжай печать с помощью того же Writeln в цикле строка за строкой. Или воспользуйся генератором отчетов, почти все могут печатать Rich Text


 
3asys   (2002-12-28 13:21) [3]

Но там у меня картинки, таблицы и довольно сложное форматирование...

С Уважением, 3asys


 
Anatoly Podgoretsky   (2002-12-28 13:25) [4]

Какие картинки и таблицы в TRichEdit, у тебя что то другое.
Тогда используй генератор, который поддерживает твой компонент.


 
3asys   (2002-12-28 13:44) [5]

Я прошу прощения, за то, что ввел Вас в заблуждение - не подумал.
Я использую TRxRichEdit.
Благодаря Вашей подсказке, я нашел такое решение:
var
P : TextFile;
begin
AssignPrn(P);
Rewrite(P);
Writeln(P,"Проблема: ");
Writeln(P, не используя: ");
Writeln(P, "Текст:");
Writeln(P, RichEdit1.Text);
CloseFile(P);
end;
Тогда все действительно печатается последовательно, но, например, рамки таблиц не выводятся на экран (только содержимое). А мне необходимо - со всем форматированием.
Не могли бы Вы что-нибудь предложить?
Что тут можно сделать?

С Уважением, 3asys


 
Clickmaker   (2002-12-28 13:46) [6]

А если создать временный скрытый RichEdit, скопировать туда все содержимое, а в начало вставить эти три строки? Способ корявый, конечно, но если срочно...


 
3asys   (2002-12-28 13:51) [7]

>>Clickaker

А как это реализовать? Дело в том, что я загружаю содержимое TRxRichEdit из файла. Я уже пытался пробовать этот вариант, но если я заношу в TRxRichEdit строчки (методом Add), то при последующей загрузке в него текста из файла (LoadFromFile) внесенные до этого строчки затираются.

С Уважением, 3asys


 
RWolf   (2002-12-28 13:52) [8]

занести строчки в файл
Вы ведь RTF загружаете?


 
3asys   (2002-12-28 14:05) [9]

Содержимое строчек генерируется перед загрузкой файла и заранее неизвестно.

С Уважением, 3asys


 
Clickmaker   (2002-12-28 14:09) [10]

Дык строчки то после загрузки файла надо добавлять и не Add, а Insert(0, )


 
RWolf   (2002-12-28 14:10) [11]

занести строчки в файл программно непосредственно перед загрузкой.

формат файлов RTF:
http://www.codenet.ru/progr/formt/rtf1.php



 
3asys   (2002-12-28 14:11) [12]

Вообще, чья это инициатива - начинать печать с новой страницы?
После CloseFile происходит переход на новую страницу, или TRxRichEdit начинает печать с новой страницы? Или они оба?
Я думаю, возможно, я ошибаюсь, что здесь нужно какую-нибудь директиву, которая бы указывала TRxRichEdit выводить текст не с новой страницы или CloseFile - не переводить страницу. Что-то в этом роде, вероятно...

Что тут можно сделать?

С Уважением, 3asys


 
3asys   (2002-12-28 14:19) [13]

>> Clickmaker
Чувствую себя идиотом.

ОГРОМНОЕ СПАСИБО ВСЕМ !!!

С Уважением, 3asys



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.009 c
1-37140
malkolinge
2002-12-28 19:35
2003.01.13
Как отрубить в ТрееВью выбор ноды


1-37086
jen_bond
2003-01-03 15:09
2003.01.13
Создание компанентов.


1-37205
koly01
2002-12-28 13:52
2003.01.13
как подцепить процедуры и функции написанные на CPP в D5


8-37230
fr
2002-09-24 07:33
2003.01.13
API для bass.dll


1-37194
DJ_Sedoy
2002-12-28 00:28
2003.01.13
Обработчик событий





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский