Print a File

[gforrest]

Is there a simple way to print a text file from Delphi? I have a file in the same directory as my code and I simply want to send it to print.

Thanks

 

[footpad]

gforrest,

This should get you started:

procedure TForm1.Button1Click(Sender: TObject);
var
   strFilename : String;
   strErrorMsg : String;
begin

   strFilename := edit1.text;
   if not fileExists( strFilename )
   then
      begin
         beep();
         strErrorMsg := 'Can''t find a file named "' +
                        strFilename + '"' + #10#10 +
                        'Please check your filename. ';
         application.MessageBox( pChar( strErrorMsg ),
            'Can''t Print',  MB_ICONSTOP + MB_OK );
      end
   else
      with tRichEdit.createParented( self.Handle ) do
      try
         lines.loadFromFile( strFileName );
         print( 'Printout caption' );
      finally
         free;
      end;
end;

Note that this works under Delphi 5.01. If you're using an older version that this doesn't work under, consider this TI from Borland's site:

http://community.borland.com/article/0,1410,15785,00.html

Hope this helps...

-- Lance