帮我看一下这些代码!

iammen 2001-12-13 09:06:02
还是不行,帮我看看吧!
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
form1.ExcelApplication1.Connect;
form1.ExcelApplication1.Workbooks.Add('c:\count.xls',0);
form1.ExcelWorkbook1.ConnectTo(form1.ExcelApplication1.Workbooks[1]);
form1.ExcelWorksheet1.ConnectTo(form1.ExcelWorkbook1.sheets[1] as _worksheet);
form2.Show;
i:=2;
while {not form1.ADOTable1.eof}i<100 do
begin
if (i mod 21)=0 then
begin
// form1.ExcelWorksheet1.Cells.Item[i,1]:='小计';
// form1.ExcelWorksheet1.Cells.Item[i,1].font.color:=clblue;
form1.ExcelWorksheet1.Cells.Item[i,2]:='=sum(b'+inttostr(i-20)+':b'+inttostr(i-1)+')';
form1.ExcelWorksheet1.Cells.Item[i,2].font.color:=clred;
form1.ExcelWorksheet1.Range['a'+inttostr(i),'b'+inttostr(i)].MergeCells:=true;
i:=i+1;
next;
end
else
begin
form1.ExcelWorksheet1.Cells.Item[i,1]:=form1.ADOTable1.Fields[1].Value;
form1.ExcelWorksheet1.Cells.Item[i,2]:=form1.ADOTable1.Fields[10].Value;
i:=i+1;
form1.ADOTable1.Next;
form2.label1.Caption:='共有'+inttostr(form1.ADOTable1.RecordCount)+'条计录,正在计算第'+inttostr(i)+'条....';
form2.Update;
form2.Gauge1.MaxValue:=form1.ADOTable1.RecordCount;
form2.Gauge1.AddProgress(1);
end;
end;
/// form1.ExcelWorksheet1.PrintOut;
form1.ExcelWorksheet1.PrintPreview;//不行,不是出错是运行不了!没反应了!
form2.Free;
form1.ExcelWorkbook1.SaveCopyAs('c:\111.xls');
form1.ExcelApplication1.ActiveWorkbook.Saved[1]:=true;
form1.ExcelApplication1.Quit;
form1.ExcelApplication1.Disconnect;

showmessage('好了!');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'Open', PChar('c:\111.xls'), nil, nil, sw_shownormal);///这句不行!!!!

end;

end.
...全文
48 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
cobi 2001-12-13
  • 打赏
  • 举报
回复
excel.worksheets['sheet1'].printpreview;

ShellExecute(Handle, 'Open', PChar('c:\111.xls'), nil, nil, sw_shownormal);///这一句有没有uses shellapi呢/
王集鹄 2001-12-13
  • 打赏
  • 举报
回复
var
vSelectedSheets: OleVariant;
begin
//..............
vSelectedSheets := form1.ExcelApplication1.ActiveWindow.SelectedSheets;
vSelectedSheets.PrintPreview;
//vSelectedSheets.PrintOut;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧