Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

nolfolk

Como se imprimi???

Recommended Posts

// Adicione a Unit Printers na cláusula do seu Formuses Printers; O código abaixo implementa uma função para imprimir o conteúdo de um componente Memo.Para que seja feita a impressão, o código cria um arquivo texto de impressão (MemoFile :TextFile), com o objetivo de armazenar as linhas existentes no memo.Neste arquivo são armazenadas todas as linhas existentes no memo.O código completo:Procedure TForm1.Memo_Print(Conteudo:TStrings);VarMemoFile :TextFile;P :Integer;Begin AssignPrn(MemoFile);Rewrite(MemoFile); For P := 0 to Conteudo.Count-1 doWriteln(MemoFile,Conteudo.Strings[P]);CloseFile(MemoFile);end;Exemplo :Procedure Tform1.Button1Click(Sender:TObject);beginMemoPrint(Memo1.Lines);end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.