我也是这么想,WORD也带VBA功能,既然EXCLE能做到的WORD应该也能做到。
我用EXECL已经做了16张报表了,很漂亮啊!用EXECL做报表太简单了。关键汇总却汇总不起来。这个问题解决不了睡不着,望狐爸解决!
以下是引用ahljy351在2008-9-17 14:20:00的发言:
{[单位]}
价 格 鉴 定 结 论 书
铜价认鉴[{Left([结论编号],4)}]{Right([结论编号],3)}号
{[结论名称]}
{[委托单位]}
受你单位委托,我中心遵循合法、公正、客观、科学的原则,按照规定的标准、程序和方法,依法对委托的标的价格进行了鉴定。现将价格鉴定情况综述如下:
一、价格鉴定标的
{Substitute(Substitute([结论名称],"关于",""),"的价格鉴定","")}
二、价格鉴定目的
为委托方提供标的价格依据(涉案金额)
三、价格鉴定基准日
{[基准日]}
四、价格定义
价格鉴定结论所指价格是:鉴定标的在鉴定基准日采用公开市场价值标准确定的市场价格。
五、鉴定依据
(一)法律法规
1.《中华人民共和国价格法》
2.《安徽省涉案物品估价管理条例》及其实施细则
3. 其他法律法规
(二)委托方提供的有关资料
1、价格鉴定委托书
2、有关资料复印件
(三)鉴定方收集的有关资料
1、现场勘验记录
2、市场调查资料
六、价格鉴定方法
{[鉴定方法]}
七、价格鉴定过程
我中心接受委托后,成立了价格鉴定小组,制定了价格鉴定方案,通过认真审核委托方提供的资料,确定采用{[鉴定方法]}进行价格鉴定,并进行了相关市场调查后,计算得出价格鉴定结论。
八、价格鉴定结论
价格鉴定标的鉴定价格计:人民币{CUMoney([合计鉴定价格])}(¥{[合计鉴定价格]})。
九、价格鉴定限定条件
1.本次鉴定委托数量及购买(使用)日期均由委托方提供。
2.本次鉴定报告权供委托方办理有关案件时使用。
十、声明
1.价格鉴证结论受结论书中已说明的限定条件限制。
2.声明委托方应为其提供资料的真实性负责。
3.价格鉴证结论对本次委托有效,不作他用。未经本鉴证机构同意,不得向委托方和有关当事人之外的任何单位和个人提供。结论书的部分或全部内容,不得发表于任何公开媒体上。
4.价格鉴证人员与价格鉴证标的没有利害关系,也与有关当事人没有个人利害关系或偏见。
5.如对结论有异议,可于结论书送达之日起15日内向我鉴证机构提出补充鉴定、重新鉴定,或向安徽省价格认证中心申请复核裁定。
十一、价格鉴定作业日期
{[作业日期]}至{[完成日期]}
十二、价格鉴定机构
铜陵市价格认证中心
法人代表:
十三、价格鉴定人员
十四、附件
1、鉴定物品明细表;
2、价格鉴证机构资质证(复印件);
3、价格鉴证人员资格证书(复印件)。
铜陵市价格认证中心
{CLDate([完成日期])}
给个狐表,我看看你的报表能不能做出来?
以下是引用ahljy351在2008-9-20 15:34:00的发言:
报表怎么可能会出来.楼上的在开玩笑吧
EXECL报表也是建立在狐表基础上的,狐表两个方式建立报表:EXECL报表和专业报表,如果你不把FOXTABLE(也就是狐表)上传,人家怎么帮你做。
唉,对不起了!我理解错了谢谢各位.
我暂时放异了FOX.等功能完善后再说,先用其它的工具了.
[此贴子已经被作者于2008-9-21 6:31:05编辑过]
帮助中有套打功能的,,慢慢学
单据套打
有了专业报表,单据套打将是一件非常轻松的任务,您只需量量好每一个对象的尺寸,设置好对象的坐标,然后将其加入到报表中即可。
例如有一个印刷好的员工资料卡:
![](mk:@MSITStore:C:\Documents%20and%20Settings\a\桌面\新易表\help.chm::/0881.gif)
下面是套打员工资料卡的代码,由很多几乎相同的代码段组成:
Dim
doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形
Dim CurRow As Row = Tables("员工").Current
rx = new prt.RenderText
rx.Text = CurRow("姓名")
rx.x = 51
rx.y = 36
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("出生日期")
rx.x = 109
rx.y = 36
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("部门")
rx.x = 51
rx.y = 43
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("雇佣日期")
rx.x = 109
rx.y = 43
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("性别")
rx.x = 51
rx.y = 50
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("职务")
rx.x = 109
rx.y = 50
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("城市")
rx.x = 51
rx.y = 57
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("邮政编码")
rx.x = 109
rx.y = 57
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("地址")
rx.x = 51
rx.y = 63
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("家庭电话")
rx.x = 51
rx.y = 69.5
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("办公电话")
rx.x = 109
rx.y = 69.5
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("备注")
rx.x = 26.5
rx.y = 76
rx.Width= 163
doc.body.Children.Add(rx)
rm= New prt.RenderImage
rm.Height = 38
rm.Width = 34
rm.Image = GetImage(CurRow("照片"))
rm.x= 149.5
rm.y = 36
doc.body.Children.Add(rm)
Doc.Preview() '预览报表