C++Builder_Excel打印模式

最新推荐文章于 2021-04-14 15:13:13 发布

miderph

最新推荐文章于 2021-04-14 15:13:13 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： C++Builder 文章标签： excel c++builder 工作文档网格

本文链接：https://blog.youkuaiyun.com/miderph84/article/details/3998484

C++Builder 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种使用Delphi将DBGrid组件中的数据导出到Excel的方法，并实现了自动打印功能。文章详细展示了如何创建Excel对象、设置单元格样式、填充数据以及进行页面设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

void ExcelPrint(TDBGrid * dbg)
{
          int zj_index=-1; //add Yanfl 2009-3-17    zj_index 从1开始计数
          long double zj=0.0;        //add Yanfl 2009-3-17
          if(!dbg->DataSource->DataSet->Active)   //   数据集没有打开就返回
          {
                  Application->MessageBox("数据集没有打开,导出失败!"   ,   "提示",   MB_OK)   ;
                  return ;
          }
          Variant   vExcelApp,   vSheet;
          try
          {
                  vExcelApp   =   Variant::CreateObject("Excel.Application");
          }
          catch(...)
          {
                  Application->MessageBox(   "启动   Excel   出错,   可能是没有安装Excel.",
                                  "DBGrid2Excel",   MB_OK   +   MB_ICONERROR);
                  return;
          }
          //   隐藏Excel界面修改为显示
          vExcelApp.OlePropertySet("Visible",   true);
          //   新建一个工作表
          vExcelApp.OlePropertyGet("Workbooks").OleFunction("Add",   1);   //   工作表
          //   操作这个工作表
          vSheet   =   vExcelApp.OlePropertyGet("ActiveWorkbook")
                          .OlePropertyGet("Sheets",   1);
          //   设置Excel文档的字体
          vSheet.OleProcedure("Select");
          vSheet.OlePropertyGet("Cells").OleProcedure("Select");
          vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font")
                          .OlePropertySet("Size",   dbg->Font->Size);
          vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font")
                          .OlePropertySet("Name",   dbg->Font->Name.c_str());
          vExcelApp.OlePropertyGet("Selection").OlePropertyGet("Font")
                          .OlePropertySet("FontStyle",   "常规");
          vSheet.OlePropertyGet("Cells",   1,   1).OleProcedure("Select");
          //   表格的行数
          int   nRowCount(dbg->DataSource->DataSet->RecordCount   +   1);
          nRowCount   =   nRowCount   <   2?   2:   nRowCount;
          //   表格的列数
          int   nColCount(dbg->Columns->Count);
          nColCount   =   nColCount   <   1?   1:   nColCount;
          //   设置单元格的宽度
          for(int   i=0;   i<nColCount;   i++)
          {
                  int   nColWidth   =   dbg->Columns->Items[i]->Width;
                  vExcelApp.OlePropertyGet("Columns",   i   +   1)
                                  .OlePropertySet("ColumnWidth",   nColWidth   /   7);
          }
          //   先将列名写入Excel表格
          for(int   j=0;   j<dbg->Columns->Count;   j++)
          {
                 if(dbg->Columns->Items[j]->Title->Caption=="总价")
                 {
                        zj_index=j+1;
                 }
                  //   标题行的行高
                  vExcelApp.OlePropertyGet("Rows",   1).OlePropertySet("RowHeight",   20);
                  //
                  vSheet.OlePropertyGet("Cells",   1,   j   +   1)
                                  .OlePropertySet("Value",
                                  dbg->Columns->Items[j]->Title->Caption.c_str());

          }
          //   将DBGrid中的数据写入Excel表格
          dbg->DataSource->DataSet->First();
          int i;
          for(i=0;   i<nRowCount&&!dbg->DataSource->DataSet->Eof;   i++)
          {
                  //   普通数据行的行高16
                  vExcelApp.OlePropertyGet("Rows",   i   +   2).OlePropertySet("RowHeight",   16);
                  //   63   63   72   75   6E   2E   63   6F   6D
                  for(int   j=0;   j<dbg->Columns->Count;   j++)
                  {
                          vSheet.OlePropertyGet("Cells",   i+2,   j+1)
                                  .OlePropertySet("Value",dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsString.c_str());
                          if(j==zj_index-1)     //add Yanfl
                                zj+=dbg->DataSource->DataSet->FieldByName(dbg->Columns->Items[j]->FieldName)->AsFloat;
                  }
                  dbg->DataSource->DataSet->Next();
          }
          //将合计数据写入Excel 表格    add Yanfl 2009-03-17
          if(zj_index>0)
          {
                vSheet.OlePropertyGet("Cells",   i+2,   1)
                                  .OlePropertySet("Value","费用合计");
                vSheet.OlePropertyGet("Cells",   i+2,   zj_index)
                                  .OlePropertySet("Value",FloatToStr(zj).c_str());
          }
          // 将签字领导签字写入Excel 表格
                vSheet.OlePropertyGet("Cells",   i+4,   1)
                                  .OlePropertySet("Value","总经理签字：");
                vSheet.OlePropertyGet("Cells",   i+4,   3)
                                  .OlePropertySet("Value","部门经理签字：");
                vSheet.OlePropertyGet("Cells",   i+4,   5)
                                  .OlePropertySet("Value","制表人：");