Impressão de Arquivos

[Terry 0]

Pessoal estou precisando fazer um botão no delphi para que ele imprima um arquivo .xls como eu poderia proceder??

 

Obrigado!!

[marcio.theis 3]

Uma das formas de se fazer:

 

uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
  var MyExcel: olevariant;
begin
  MyExcel:=UnAssigned;
  MyExcel:=CreateOleObject('Excel.Application');
  Try
	MyExcel.Visible:=false; 
	MyExcel.WorkBooks.open('c:\teste\teste.xls');
	MyExcel.WorkSheets.Printout;
  Finally
	if not varisempty(MyExcel) then
	begin
	  MyExcel.quit;
	  MyExcel := unassigned;
	end;
  end;
end;

Ou:

 

ShellExecute(Handle, 'print', PChar('c:\teste\teste.xls'), nil, nil, SW_SHOW);