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
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)