Imprimindo de Um Memo!

Vamos adicionar ao nosso projeto 1 Memo
1 Button
Vamos acrescentar a nossa Uses do projeto printers
Uses printers;
Der um clique duplo no Button ou vá no Envento OnClick
escreva o código:
var I:Integer;
begin
//Inicia a impressão
Printer.BeginDoc;
Printer.Title:='TyttoSoft';
//Conta quantidades de linha no Memo
 for I :=0 to Memo1.Lines.Count - 1 do
  begin
 //Imprime as linhas
  Printer.Canvas.TextOut(1,(I - 1) *
  Printer.Canvas.TextHeight('TyttoSoft'),
  Memo1.Lines[I-1]);
  end;
//Termina a impressão
Printer.EndDoc;
end;

Minha Unit ficou assim:
unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils,
System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, printers;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
begin
//Inicia a impressão
Printer.BeginDoc;
Printer.Title:='TyttoSoft';
//Conta quantidades de linha no Memo
 for I :=0 to Memo1.Lines.Count - 1 do
  begin
  //Imprime as linhas
  Printer.Canvas.TextOut(1,(I - 1) *
  Printer.Canvas.TextHeight('TyttoSoft'),
  Memo1.Lines[I-1]);
  end;
//Termina a impressão
Printer.EndDoc;
end;
end.
 Deixe Sua Sugestão!

17/04/2026 05:02 Delphi 5277
Topo