1. How to print document without user action?

If you use Word, you may use OLE for printing: in uses section add unit ComObj; Generate report using Execute method. In print procedure or in event OnFinished write this code:

procedure TForm1.EkRTF1Finished(Sender: TObject);
var V:Variant;
begin
try
V:= CreateOLEObject('Word.Application');
//uncomment next line if you want to make Word window visible
//V.Visible:=true;
V.Documents.Open(EkRTF1.outfile);
V.ActiveDocument.PrintOut(False);
//Quit, do not save changes;
V.Quit(0);
V:=UnAssigned;
except
ShowMessage('Could not print document using MS Word');
end;
end;

If you use WordPad, add this code to your project:

uses ShellApi;

function StartFile(const FileName, FileParam:string; ShowCmd: Integer): THandle;
begin
Result := ShellExecute(Application.MainForm.Handle, nil, PChar(FileName), PChar(FileParam), nil, ShowCmd);
if Result<=32 then showmessage('Can''t open file!');
end;

Use method Execute instead of ExecuteOpen. In event OnFinished write next code (for example):
procedure TForm1.EkRTF1Finished(Sender: TObject);
begin
StartFile('wordpad.exe','c:\Docs\outfile.doc /p',SW_MINIMIZE);
end;

Option /p forces to print document and close WordPad. Take a look that WordPad does not support most features of formatting. Your reports must be very simple if you are using WordPad.

Top