No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Imprimir un Tmemo.

 

Hay que adicionar esta unidad para que funcione correctamente.

delphi

uses printers;

delphi

procedure TForm1.PrintIt(Sender: TObject);
	var
	  PrintBuf: TextFile;
	begin
	  AssignPrn(PrintBuf);
	  Rewrite(PrintBuf);
	  try
	    for i := 0 to Memo1.Lines.Count-1 do
	      WriteLn(PrintBuf, Memo1.Lines[i]);
	  finally
	    CloseFile(PrintBuf);
	  end;
	end;

Saludos!