Fórum Urgente - Imprimir planilha do Excel pelo delphi #175809

18/08/2003

0

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

Responder

Posts

19/08/2003

Edmarss

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar