Urgente - Imprimir planilha do Excel pelo delphi

Delphi

18/08/2003

Para os feras de Excel ...

Olá galera preciso urgente de uma rotina que imprima um palnilha do
Excel, utilizando código delphi ....
já conseguir abrir, Lê, Enviar, mas ainda não conseguir imprimir...



Exemplo
Não coloque componente nenhum na tela ... Coloque no uses : ComObj

procedure Importa;
var
Excel : OleVariant;
begin
Try
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible := False; {True mostra o excel, false não mostra}
Excel.WorkBooks.Open(CAMINHO_E_NOME_DO_ARQUIVO, EmptyParam, EmptyParam, EmptyParam, SENHA_DA_PLANILHA,

EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
//

falta código parar imprimir ...
//
LABEL.CAPTION := String(Excel.WorkBooks[1].Sheets[1].Cells[LINHA, COLUNA];
Excel.WorkBooks.Close;
Excel.Quit;
End;

Agradeceria muito a ajuda ...

[]´s Guialberto


Guialberto

Guialberto

Curtidas 0

Respostas

Edmarss

Edmarss

18/08/2003

tente assim:

procedure Importa;
var
Excel : OleVariant;
begin
Try
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible := False; {True mostra o excel, false não mostra}
Excel.WorkBooks.Open(CAMINHO_E_NOME_DO_ARQUIVO, EmptyParam, EmptyParam, EmptyParam, SENHA_DA_PLANILHA,

EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
//

falta código parar imprimir ...
Excel.ActiveWindow.SelectedSheets.PrintOut(Copies:=1, Collate:=True);
* só adicionei esta linha

//
LABEL.CAPTION := String(Excel.WorkBooks[1].Sheets[1].Cells[LINHA, COLUNA];
Excel.WorkBooks.Close;
Excel.Quit;
End;

Atenciosamente,

Edmar Soethe da Silva
edmarss@bol.com.br


GOSTEI 0
POSTAR