var wordApp : TWordApplication;//打开word
procedure ShowDoc(ACaption: String; AUserName: String; APathName: String);
var
templateName: OleVariant;
newTemplate : OLeVariant;
begin
templateName := APathName;
try
wordApp.Connect();
except
SFASHOWMESSAGE('您的计算机上还未安装Microsoft Office Word97或更高的版本!');
Abort;
end;
newTemplate := False;
wordApp.Documents.AddOld(templateName, newTemplate);
wordApp.Caption := ACaption; wordApp.UserName := AUserName;
wordApp.WindowState := 1; //最大化
wordApp.Visible := True;
wordApp.Activate; wordApp.Disconnect();
end;
procedure ShowDoc(ACaption: String; AUserName: String; APathName: String);
var
templateName: OleVariant;
newTemplate : OLeVariant;
begin
templateName := APathName;
try
wordApp.Connect();
except
SFASHOWMESSAGE('您的计算机上还未安装Microsoft Office Word97或更高的版本!');
Abort;
end;
newTemplate := False;
wordApp.Documents.AddOld(templateName, newTemplate);
wordApp.Caption := ACaption; wordApp.UserName := AUserName;
wordApp.WindowState := 1; //最大化
wordApp.Visible := True;
wordApp.Activate; wordApp.Disconnect();
end;
解决方案 »
- 含参数的函数指针怎么用
- 异地两台通过网关上网的计算机如何建立通讯?
- 用户在ole打开的Word中绘制了一些图形,想保存成图片 请问怎么实现?
- 请问,怎么写错误捕获,要捕获所有exception?
- 我现在有一个父窗口(mainwindow),和4个子窗口,子窗口名为,form1,form2,form3,form4,同时子窗口中都有一个涵数formok(str:string),现在
- 动态创建的控件的Align问题
- 关于一个简单控件的实现
- 有谁下载了通用考试系统 Jiefo WebExam
- 当鼠标在listbox窗体上滑动时如何使滑过的文字高亮显示
- 再问一次,这样到底行不行??
- 请教":怎么控制word模板中的只有表头的表格动态生成表格
- 如何在程序中指定选定Excel文档里的打印机?
wordApp.Close;
wordApp := UnSigned;
var wordApp : TWordApplication;wordApp怎样才能调用以下的两个方法
wordApp.Close;
wordApp.Unassigned ;
免费升级超越水晶报表,是我们的目标
彻底解除程序员负担,极大提高用户设定灵活性
LLanV报表工具,经过了10000行以上数据的压力测试,性能优良!其中一部分功能如下:
1.支持资料卡(比如:个人简历),表单(比如:销售定单),报表(比如:销售月报表)的预览打印
2.不用任何设定,就可以默认产生专业的页面
3.用户可以一次性设定企业标准样式(比如:公司标志,台头)
4.支持文本,线条,方框,图片,等报表元素
5.对各报表元素和报表区域等提供丰富的属性
6.用户可以在运行期间编辑文本,线条,方框,图片,明细列, 操作简单
7.支持同一列相同数据合并成一个格
8.可以在运行期间增删,调换明细列
9.提供多种报表风格
10.支持页合计,总计
11.支持的套打报表
12.支持MIS开发的各种开发工具:如VC、VB、Delphi等
13.可以直接连接数据库
14.用户可以把设定后的报表样式保存为报表样式文件
15.报表头和报表尾均可多于一页
16.报表样式文件格式完全开放
17.可以实现中国式复杂报表样式
18.无须编程请发EMAIL给[email protected]
WordApplication1.Disconnect;
Except
on e:Exception do
begin
ShowMessage(e.Message);
WordApplication1.Disconnect;
end;