Программирование Delphi

Печать сейчас широко используется в приложениях Delphi, когда нужно напечатать текст, изображение и т.д. Большинство приложений Windows поддерживают возможность печати. В Delphi есть несколько способов печати, в зависимости от качества, которого Вы хотите достичь.

Печать формы

В Delphi у формы Form имеется функция Print, которая может выводить на печать форму.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Print;
end;

Также Вы можете использовать свойство PrintScale, которое изменяет масштаб печатаемого объекта. Это свойство содержит три опции:

• poNone - печать будет произведена с настройками принтера.
• poProportional - печать страницы, которая будет иметь те же размеры, что и на экране.
• poPrintToFit - размер изменяется в зависимости от размера страницы.

При этом получается не самое высокое качество печати.

Печать управления TRichEdit

Функция Print имеется также у компонента TRichEdit.

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.Print('Имя документа');
end;

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

Печать текстовых файлов при помощи ShellExecute

Также можно использовать функцию API ShellExecute для печати текстового документа.

uses
{ … } ShellApi { … }
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellExecute(
      Handle, 'Print', 'C:\Test.txt',
      nil, nil, SW_Hide);
end;

При этом открывается приложение, которое ассоциировано с файлом. В моем случае это Блокнот.

Диалоговое окно печати

В Delphi имеется два диалоговых окна для печати: диалоговое окно при помощи компонента TPrintDialog и при помощи диалогового окна установок принтера TPrinterSetupDialog.

Диалоговое окно TPringDialog

Компонент диалогового окна TPrintDialog Вы можете использовать непосредственно перед началом печати. Компонент TPrintDialog имеет свои свойства и метода, которые Вы сможете найти в справке по Delphi. Диалоговое окно вызывается конструкцией:

procedure TForm1.Button4Click(Sender: TObject);
begin
  PrintDialog1.Execute;
end;

Диалоговое окно Настройка печати

При вызове этого диалогового окна появляется возможность выбрать настройки печати, такие как размер бумаги, ориентацию и т.д. Можно также использовать это окно для настроек принтера. Вызывается это диалоговое окно функцией Execute.

procedure TForm1.Button5Click(Sender: TObject);
begin
  PrinterSetupDialog1.Execute;
end;

TPrinter

Объект TPrinter используется для печати документов, текста и т.д. Вот пример использования TPrinter для печати прямоугольника. Не забудьте добавить модуль Printers в раздел uses формы.

procedure TForm1.Button6Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.Canvas.Rectangle(100, 100, 300, 300);
  Printer.EndDoc;
end;

Таким же образом, на холсте Canvas объекта Printer можно напечатать и текст.

procedure TForm1.Button7Click(Sender: TObject);
begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'http://delphiru.ru/');
  Printer.EndDoc;
end;

А также вывести растровое изображение на печать, словно на холст.

procedure TForm1.Button8Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp:= TBitmap.Create;
  bmp.LoadFromFile('C:\athena.bmp');
  Printer.BeginDoc;
  Printer.Canvas.Draw(10, 10, bmp);
  Printer.EndDoc;
  bmp.Free;
end;

При печати растровое изображение будет небольшим, чтобы вывести нужный Вам размер на печать, используйте StretchDraw.

Реализация Просмотра Печати

Предварительный просмотр печати важен в приложениях для пользователя, потому как позволяет просматривать изображение или текст перед выводом его на печать. Здесь мы создадим предварительный просмотр печати с возможностью изменения масштаба изображения.

Небольшое приложение с использованием предварительного просмотра печати Вы можете посмотреть здесь.

Копирование содержимого формы в буфер обмена

uses
  { ... }, Clipbrd;


procedure TForm1.Button2Click(Sender: TObject);
var
  FormImage: TBitmap;
begin
  FormImage := GetFormImage;
  try
    Clipboard.Assign(FormImage);
    Image1.Picture.Assign(Clipboard);
  finally
    FormImage.Free;
  end;
end;