以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]word报表打印问题? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116718) |
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 20:56:00 -- [求助]word报表打印问题? 聘用合同打印问题如何解决?如何像excel报表一样解决?选定哪行就打印哪行合同信息.
附件怎么传不上来.我再做一个简易的试下
问题:如何打印主表的关联表中的选定行报表.
[此贴子已经被作者于2018/3/29 21:21:45编辑过]
|
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 21:03:00 --
|
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 21:04:00 -- 这是按钮代码:Dim tm As String = ProjectPath & "Attachments\\劳动合同.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\劳动合同.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("聘任合同"),tm,fl) \'定义一个WordReport wrt.Build() \'逐行生成报表 wrt.Show() \'显示报表 |
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 21:05:00 -- 编 号: <Index> 涟源市杨市镇中心卫生院劳动聘用合同 聘用单位(甲方): 涟源市杨市镇中心卫生院
受聘人员(乙方): [姓名]
本合同最终解释权归涟源市杨市镇中心卫生院所有
甲方(聘用单位) 名称: 涟源市杨市镇中心卫生院 法定代表或委托代理人: 唐 斌 地址: 涟源市杨市镇新马路51号 邮政编码: 417124 联系电话: 0738-4563339 乙方(受聘人员) 姓名: [姓名] 性别: [性别] 身份证号码: [公民身份号码] 住址:[详细通讯地址] 联系电话: [联系电话] 按照劳动法律法规要求,甲乙双方在平等自愿、协商一致的基础上,签订如下聘用合同条款,共同遵照履行。本合同自双方签订之日起生效。 一、 聘用合同日期 本合同日期自<format([聘任起始日期],"yyyy年MM月dd日")>至<format([聘任终止日期],"yyyy年MM月dd日")>止。 二、 聘用岗位及职责要求 (一)甲方聘用乙方在[聘任合同,聘任部门]部门从事[聘任合同,聘任职务]岗位的工作。 (二)乙方服从甲方的工作安排,按照岗位职责要求按时完成甲方规定的工作任务,达到规定的工作质量标准。 三、岗位纪律 (一)甲方有权按照岗位职责,建立健全各项考核制度,做到职权清晰、责任明确、考核严格、奖惩分明。 (二)乙方应严格遵守国家和本地方的各项法律、法规,遵守甲方的各项规章制度和岗位纪律,服从甲方的领导和管理。 (三)乙方如违反规章制度和岗位纪律,甲方有权进行批评教育,按照有关规定给予相应处理。 四、岗位工作条件 (一)甲方提供乙方必需的工作条件和有效的劳动安全卫生防护措施。 (二)甲方严格实行本单位有关职工工作时间和工休假日等规定。 (三)甲方应当根据工作需要为乙方提供职务道德、专业技术、业务知识、安全生产和规章制度等方面的培训。 五、工资福利与社会保险待遇 (一)乙方的工资福利待遇按上级和单位规定执行(其中工资待遇中的“其他”与年终绩效,工作满壹年后增加)。 (二)乙方的绩效工资按单位规定的绩效考核办法,实行全成本核算制。 (三)甲方按照国家和地方的有关规定和甲方对临聘人员管理制度支付乙方社会保险金。支付程序、金额按甲方对临聘人员管理制度实施,统一办理有关手续。 六、附则 (一)甲乙双方协商一致,可以变更本合同的相关内容。 (二)甲乙双方协商一致,可以解除本合同。 (三)乙方有下列情形之一的,甲方可以随时单方面解除本合同: 1、连续旷工超过10个工作日或者1年内累计旷工超过20个工作日的; 2、乙方私自收费和私自买卖药品的; 3、违反工作规定或者操作规程,发生责任事故,或者失职、渎职,造成严重后果的; 4、严重扰乱工作秩序,致使甲方、其他单位工作不能正常进行的; 5、被判处拘役、有期徒刑缓刑以及有期徒刑以上刑罚收监执行,或者被劳动教养的。 (四)因乙方本合同约定而造成甲方损失的,乙方应当按照甲方的实际损失承担赔偿责任。 (五)本合同一式三份,聘用单位、受聘人员(当事人)、劳动保障部门各执一份。 甲方(盖章) 乙方(签字盖章) 法定代表人或 [&行政领导签章,100,48] 委托代理人(签字盖章) 年 月 日 年 月 日
以上是整个合同报表的内容. |
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 21:06:00 --
|
||||
-- 作者:老鼠 -- 发布时间:2018/3/29 21:07:00 -- ![]() ![]() 这上关联表数据内容 |
||||
-- 作者:有点甜 -- 发布时间:2018/3/29 21:42:00 -- 代码改成这样,即可
Dim tm As String = ProjectPath & "Attachments\\劳动合同.doc" \'指定模板文件 |
||||
-- 作者:老鼠 -- 发布时间:2018/3/30 11:20:00 -- 以下是引用有点甜在2018/3/29 21:42:00的发言:
代码改成这样,即可
Dim tm As String = ProjectPath & "Attachments\\劳动合同.doc" \'指定模板文件 按照这个代码出现以下提示不知道为何?.NET Framework 版本:2.0.50727.5477 |
||||
-- 作者:有点甜 -- 发布时间:2018/3/30 11:21:00 -- 1、
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1
2、如果1无法修复,就重新安装一下wps。 |
||||
-- 作者:老鼠 -- 发布时间:2018/3/30 11:49:00 -- 谢谢!已经处理好了。
|