怎么我的delphi程序中调用excel的printpreview没反应啊 怎么我的delphi程序中调用excel的printpreview没反应啊 ,一直运行,又不报错 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 打印预览工作表:ExcelApp.ActiveSheet.PrintPreview;打印输出工作表:ExcelApp.ActiveSheet.PrintOut; var ea:variant;{$R *.dfm}procedure Tform1.rectoexcel(fname:string);var ss:string; i:integer;begin try EA:=CreateOleObject('Excel.Application'); except application.MessageBox('NO EXCEL','', MB_OK); EXIT; end; EA.Visible := true; application.BringToFront; EA.WorkBooks.Add; EA.Cells[1,1]:='1'; EA.Cells[1,2]:='2'; ea.ActiveSheet.PrintPreview; EA.ActiveWorkBook.Saveas(fname); ea.quit; ea:=unassigned;END;procedure TForm1.Button1Click(Sender: TObject);begin savedlg.Filter:='Excel files (*.xls)|*.xls'; if not savedlg.Execute then exit; rectoexcel(savedlg.FileName);end;我试了好用的 问一个消息丢失的问题 如何知道当前是台式机还是笔记本? listview里面的item拖动 如何将一个字符串付值给ADOQuery的SQL属性 开贴补1000分,请 ly_liuyang(Liu Yang) 进来接分(3) sql中如何存取ole 对象数据。。 数据库恢复的一个问题?可能问过,但请回答我!谢谢 如何把字符串放进资源文件中 哪位兄弟有把SQL数据导入到EXCEL和EXCEL导入到SQL数据库里 紧急。。。。 delphi7里面封装webkit 求高人把这段代码转换成SQL语言!!!! 如何 读入文件??? 超难!!!
ExcelApp.ActiveSheet.PrintPreview;
打印输出工作表:
ExcelApp.ActiveSheet.PrintOut;
var
ea:variant;
{$R *.dfm}
procedure Tform1.rectoexcel(fname:string);
var
ss:string;
i:integer;
begin
try
EA:=CreateOleObject('Excel.Application');
except
application.MessageBox('NO EXCEL','', MB_OK);
EXIT;
end;
EA.Visible := true;
application.BringToFront;
EA.WorkBooks.Add;
EA.Cells[1,1]:='1';
EA.Cells[1,2]:='2';
ea.ActiveSheet.PrintPreview;
EA.ActiveWorkBook.Saveas(fname);
ea.quit;
ea:=unassigned;
END;procedure TForm1.Button1Click(Sender: TObject);
begin
savedlg.Filter:='Excel files (*.xls)|*.xls';
if not savedlg.Execute then exit;
rectoexcel(savedlg.FileName);
end;
我试了好用的