Dicas - Imprimindo o conteúdo de um Memo

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Essa dica mostra como imprimir um texto digitado em um Memo.

Imprimindo um conteúdo de um objeto Memo

 

Essa dica mostra como imprimir um texto digitado em um Memo sem utilizar o objeto PrintDialog. Veja como se faz. Coloque um Memo e um Button no form. Na área de código declare a unit Printers na seção uses. Na seção Implementation escreva a seguinte procedure:

 

procedure PrintStrings(Strings: TStrings);

var

  Prn: TextFile;

  i: word;

begin

  AssignPrn(Prn);

  try

    Rewrite(Prn);

    try

      for i := 0 to Strings.Count - 1 do

        writeln(Prn, Strings.Strings[i]);

    finally

      CloseFile(Prn);

    end;

  except

  on EInOutError do

    MessageDlg('Error na impressao de texto.', mtError, [mbOk], 0);

  end;

end;

 

No evento OnClick do objeto button escreva o seguinte código:

 

PrintStrings(Memo1.Lines);

 

Execute o projeto, escreva qualquer texo no Memo e clique no botão. O resultado será o que você escreveu impresso em uma folha que estava na sua impressora.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?