Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Красивая печать дельфой

Автор: EKoshelev 2.5.2006, 14:20

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

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

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

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

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

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

Автор: Alexeis 2.5.2006, 15:55

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;

Автор: zalex 2.5.2006, 23:01

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