nolfolk 0 Denunciar post Postado Outubro 11, 2004 Como se faz pro delphi imprimir o conteudo de uma memo??? Compartilhar este post Link para o post Compartilhar em outros sites
Pezzin 0 Denunciar post Postado Outubro 11, 2004 // 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
nolfolk 0 Denunciar post Postado Outubro 13, 2004 vlw pezzin :D Compartilhar este post Link para o post Compartilhar em outros sites