Delphi做好,再输送到Excel打印,请问如何实现.

Question

如何实现在Excel中打印报表.

Answer 1

你的意思是否是用DELPHI往EXCEL写入数据？

Answer 2

对,用DELPHI往EXCEL写入数据.
把EXCEL调动后,与程序脱离关系.

Answer 3

procedure TFindCarForm.SpeedButton5Click(Sender: TObject);
var
  aSheet:Variant;
  i,j:integer;
begin
  if not CarQuery.Active then exit;
  //显示Ms-excel的执行过程
  ExcelApplication1.Visible[0]:=True;
  ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,1);
  aSheet:=ExcelApplication1.Worksheets.Item[1];  with CarQuery do
  begin
    first;
    for i := 0 to FieldCount - 1 do
      aSheet.Cells[2,i+1].Value := Fields.Fields[i].DisplayLabel;    for i := 0 to RecordCount-1 do
    begin
      for j := 0 to FieldCount - 1  do
          aSheet.Cells[i+3,j+1].value :=Fields.Fields[j].AsString;
      next;
    end;
  end;
end;

Answer 4

excelapplication1.Connect;
excelapplication1.Caption:='123';
//excelapplication1.Visible[0]:=true;
excelapplication1.Workbooks.Add(null,0);
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
excelworksheet1.Name:='zwtlzr1';
excelworksheet1.Activate;
excelworksheet1.PageSetup.PrintGridlines:=true;
excelworksheet1.PageSetup.PaperSize:=XLPAPERA4;
excelworksheet1.PageSetup.CenterFooter:='第&P页共&N页';
excelworksheet1.PageSetup.PrintTitleRows:='$1:$3';
excelworksheet1.PageSetup.Orientation:=XLLANDSCAPE;
celworksheet1.Cells.item[2,2].font.Name:='黑体';
excelworksheet1.Cells.item[2,2].font.Size:=10;
excelworksheet1.Cells.Item[2,2].HorizontalAlignment := xlCenter;

Answer 5

你先在Excel中录制好关于如下的宏操作，然后打开宏的代码，全是VB的代码，可以很容易转换为Delphi，利用这种方法，你在Excel中能够做到的，通过Delphi基本上都能做到！！！标题栏目: 居中,合并6栏;数据库:  表格用黑线. 
  标题:  粗体,居中,底色为灰色.

Answer 6

楼上的先导出为Exel再打印!!可好!

Answer 7

输出到excel，在加标题，颜色，图片，边框，甚至合并单元格~。。可速度实在是太慢了~~~~这样的做法不可取~~不是不能实现，而是实在影响效率~

Answer 8

好象dbexpress中有个示例可以实现将其转入excel

Answer 9

用第三方控件ReportBuilder可以直接保存为Excel文件。

Answer 10

ReportBuilder可以!可导出的excel文件很不好看(有图片,下划线等等)!难道让客户自己去调整excel后?在打印出来吗?