Urgente - Imprimir planilha do Excel pelo delphi
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
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
Curtidas 0
Respostas
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
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