VPF::Красивая печать дельфой - Форум программистов

EKoshelev

Дата 2.5.2006, 14:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Хочу:
вывести на печать лист с красивыми табличками, у которых на белых и серых клеточках чёрным печатается текстарь. Кроме этого, просто выводятся формулы с иксами которые с индексами и могут быть с чёрточками вверху (типа, не икс).

Короче, когда-то давно пользовался объектом Print класса TPrint, но, насколько я помню, там мало пикселов и они не квадратные. Ацтой.

А ещё я слышал, что можно напечатать содержимое формы. Скажите как. Возможно, это вполне подойдёт.

Может быть ещё какие пути есть?

ТОЛЬКО ПОЖАЛУЙСТА НЕ ПРЕДЛАГАЙТЕ ИНТЕГРАЦИЮ. Ну её нафиг.

Заранее спасибо

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

Вежливым и адекватным предлагаю общаться на "ты".

Alexeis

Дата 2.5.2006, 15:55 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Form1.Print - печать формы.

Добавлено @ 15:59
А вот такой пример нашел для печати картинки

Код


procedure AngleTextOut(CV: TCanvas; const sText: string; x, y, angle: integer);
var
  LogFont: TLogFont;
  SaveFont: TFont;

  procedure TForm1.Button1Click(Sender: TObject);
  var
    ScaleX, ScaleY: Integer;
    R: TRect;
  begin
    Printer.BeginDoc; // **
    with Printer do
      try
        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
        R := Rect(0, 0, Image1.Picture.Width * ScaleX,
          Image1.Picture.Height * ScaleY);
        Canvas.StretchDraw(R, Image1.Picture.Graphic); // **
      finally
        EndDoc; // **
      end;
  end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

zalex

Дата 2.5.2006, 23:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

Сорри за ламерство. Но что есть в данном контексте интеграция. Чем редакторы отчетов не подходят, тот же Rave? С поставленно задачей справится он очень легко, а времени на осваивания уйдет ровно день. Если же использовать FastReport, то еще и возможностей больше.

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