Imrimir em impressora matricial

[Will702]

Olá a todos,

preciso imprimir direto para a impressora.

creio que usando o printdialog eu posso escolhar entre as impressoras instaladas.

desde ja agradeço

[andersondanilo]

me lembro de imprimir em matricial sem drive, mandava direto

Adicione "Printers" aos "Uses" do seu programa Ex:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Printers;

procedure Imprimir(); //Ou se a função for declarada: TForm1.Imprimir();
var PrintBuf: TextFile;
i : integer;
begin
AssignPrn(PrintBuf) ;
Rewrite(PrintBuf) ;
try
for i := 0 to edit1.Lines.Count-1 do
WriteLn(PrintBuf, edit1.Lines[i]) ;
finally
CloseFile(PrintBuf) ;
end;
end;

Substitua "Edit1" pelo nome da sua Caixa de Texto Ex: RichEdit1

OBS: ESSE CÓDIGO SÓ FOI TESTADO EM DELPHI 6

[Will702]

a sim,

muito obrigado.vou testar assim.

olha,do modo abaixo eu consegui fazer em impressora jato-de-tinta.

assim funciona em matricial?

if printdialog.execute then
    begin
    richedit1.print(richedit1.text);
    end;