Formatar tamanho da pagina no excel
12/12/2003
0
Por favor preciso alterar o tamanho da página do excel pelo delphi. Preciso passa-la para A4. a conexão é feita da seguinte forma
with excelapplication1 do
begin
Try
connect;
workbooks.Add(EmptyParam,lcid);
ActiveWorkbook.SaveAs FileName,xlnormal,´´,´´,false,false,xlNoChange,
xluserresolution,false,emptyparam,emptyparam,lcid);
visible[lcid]:=true;
Finally
Excelapplication1.disconnect;
End;
por favor ajudem
with excelapplication1 do
begin
Try
connect;
workbooks.Add(EmptyParam,lcid);
ActiveWorkbook.SaveAs FileName,xlnormal,´´,´´,false,false,xlNoChange,
xluserresolution,false,emptyparam,emptyparam,lcid);
visible[lcid]:=true;
Finally
Excelapplication1.disconnect;
End;
por favor ajudem
Portugol
Curtir tópico
+ 0
Responder
Posts
15/12/2003
Bolzoni
Ae cara. Ve se isso te ajuda...
declaracao:
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
ExcelApplication1: TExcelApplication;
no codigo.
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveSheet as _Worksheet);
ExcelWorksheet1.PageSetup.Zoom:=93;
ExcelWorksheet1.PageSetup.Orientation := xlLandscape;
ExcelWorksheet1.PageSetup.PaperSize := xlPaperA4;
declaracao:
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
ExcelApplication1: TExcelApplication;
no codigo.
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelWorksheet1.ConnectTo(ExcelApplication1.ActiveSheet as _Worksheet);
ExcelWorksheet1.PageSetup.Zoom:=93;
ExcelWorksheet1.PageSetup.Orientation := xlLandscape;
ExcelWorksheet1.PageSetup.PaperSize := xlPaperA4;
Responder
30/06/2005
Valmadson
caro colega, você saberia como fazer para formatar uma celula e receber uma formula tipo : ´=soma(a1:12)´
Grato pela atenção.
Grato pela atenção.
Responder
Clique aqui para fazer login e interagir na Comunidade :)