VPF::распечатать из Memo все строки - Форум программистов

Гульмира

Дата 30.5.2011, 11:15 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте.
Для печати из Memo использую следующий код.

Код


var
  i: Integer;
  s : string;
begin
  FmInf.Memo1.Clear;
  FmInf.Memo1.Lines.Assign(FmInf.RichEdit1.Lines);
  with Printer do begin
   r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
   BeginDoc;
   for i := 0 to Memo1.Lines.Count do begin
    s := Memo1.Lines.Strings[i];
    if Trim(s) > '' then
      Canvas.TextOut(200,300 + (i * Canvas.TextHeight(s)), s);
   end;
      Canvas.TextOut(200,200, DateTimeToStr(Now));
   EndDoc;
  end;
end;

но если строк много, то распечатывается только 1 страница.
Подскажите пожалуйста , где что можно добавить в коде чтобы разпечатать все строки из Memo?
Разве условия for i := 0 to Memo1.Lines.Count не достаточно?

superVad

Дата 31.5.2011, 12:06 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

Для начала:

Код


for i := 0 to Memo1.Lines.Count - 1

Данные ты берешь из RichEdit - может воспользоваться методом Print этого самого ричэдита?

Это сообщение отредактировал(а) superVad - 31.5.2011, 12:10

amsoft

Дата 31.5.2011, 14:13 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 3
Всего: 4

переход на новую страницу должен указываться явно:

Код


Printer.NewPage

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

"Кто бы ты ни был - не думай о себе слишком"Дельфин

Гульмира

Дата 3.6.2011, 08:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо вам! smile

Полезная ссылка для решения подобной задачи: http://helpstudio.h1.ru/books/d4/d4_13/__306.htm

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