Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文章套打问题请教老师


  共有5763人关注过本帖树形打印复制链接

主题：文章套打问题请教老师
美女呀，离线，留言给我吧！
若水三千
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1618 威望：0 精华：0 注册：2013/3/20 6:28:00 		文章套打问题请教老师  发帖心情 Post By：2013/4/15 7:37:00 [只看该作者]

Dim tbl As Table = Tables("资料")

Dim n As Integer= (tbl.BottomRow-tbl.TopRow)+1 Mod 2

n = n Mod 2

Dim m As Integer

For i As Integer = tbl.TopRow To tbl.BottomRow

    If n=1 AndAlso i=tbl.BottomRow Then

        Dim rp As New RtfPrinter("c:\data\5.rtf")

        rp.Replace("{出生日期}", Format(cdate(Tables("资料")(i,"出生日期")),"yyyy年MM月dd日"))

        rp.Replace("{姓名}",Tables("资料")(i,"姓名") )

        rp.Replace("{民族}",Tables("资料")(i,"民族"))

        rp.Replace("{日期}",Format(cdate(Tables("资料")(i,"开始时间")),"yyyy年MM月dd日") )

        rp.Replace("{单位}",Tables("资料")(i,"单位"))

        rp.Replace("{原籍}",Tables("资料")(i,"现居地"))

        rp.Replace("{工作开始}",Format(cdate(Tables("资料")(i,"工作开始")),"yyyy年MM月dd日") )

        rp.Replace("{工作结束}",Format(cdate(Tables("资料")(i,"工作结束")),"yyyy年MM月dd日") )

        rp.Replace("{工龄}",Tables("资料")(i,"工龄") )

        rp.Replace("{工种}",Tables("资料")(i,"工种"))

        rp.Replace("{时间}",Tables("资料")(i,"时期") )

        rp.Replace("{奖金}",Tables("资料")(i,"奖金"))

        rp.Replace("{累计}",Tables("资料")(i,"累计"))

        rp.Replace("{当年}",Tables("资料")(i,"当年"))

        rp.Replace("{职业}",Tables("资料")(i,"职业"))

        rp.Replace("{资料时间}",Tables("资料")(i,"资料"))

        rp.Replace("{文化程度}",Tables("资料")(i,"文化程度"))

        rp.Preview()        

    Else

        Dim rp As New RtfPrinter("c:\data\5.rtf")

        rp.Replace("{出生日期}", Format(cdate(Tables("资料")(i,"出生日期")),"yyyy年MM月dd日"))

        rp.Replace("{姓名}",Tables("资料")(i,"姓名") )

        rp.Replace("{民族}",Tables("资料")(i,"民族"))

        rp.Replace("{日期}",Format(cdate(Tables("资料")(i,"开始时间")),"yyyy年MM月dd日") )

        rp.Replace("{单位}",Tables("资料")(i,"单位"))

        rp.Replace("{原籍}",Tables("资料")(i,"原籍"))

        rp.Replace("{工作开始}",Format(cdate(Tables("资料")(i,"工作开始")),"yyyy年MM月dd日") )

        rp.Replace("{工作结束}",Format(cdate(Tables("资料")(i,"工作结束")),"yyyy年MM月dd日") )

        rp.Replace("{工龄}",Tables("资料")(i,"工龄") )

        rp.Replace("{工种}",Tables("资料")(i,"工种"))

        rp.Replace("{时间}",Tables("资料")(i,"时期") )

        rp.Replace("{奖金}",Tables("资料")(i,"奖金"))

        rp.Replace("{累计}",Tables("资料")(i,"累计"))

        rp.Replace("{资料时间}",Tables("资料")(i,"资料"))

        rp.Replace("{当年}",Tables("资料")(i,"当年"))

        rp.Replace("{职业}",Tables("资料")(i,"职业"))

        rp.Replace("{文化程度}",Tables("资料")(i,"文化程度"))

        rp.Preview()

    End If

    i=i+1

Next

请教各位大哥 如何将他自动保存成PDF格式的 不需要一个个预览另存 怎么样可以实现啊 

[此贴子已经被作者于2013-4-15 7:45:23编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/15 8:16:00 [只看该作者]

用户已被锁定
 回到顶部
美女呀，离线，留言给我吧！
若水三千
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1618 威望：0 精华：0 注册：2013/3/20 6:28:00 		  发帖心情 Post By：2013/4/15 14:00:00 [只看该作者]

大哥我问得根据我上边的代码如何保存成PDF格式的

 回到顶部
美女呀，离线，留言给我吧！
若水三千
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1618 威望：0 精华：0 注册：2013/3/20 6:28:00 		  发帖心情 Post By：2013/4/15 14:04:00 [只看该作者]

木华大哥 我说的时我上边的代码要怎么加 保存PDF格式的 不是表啊 我没有TABLE啊 

 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/15 14:06:00 [只看该作者]

用户已被锁定
 回到顶部
美女呀，离线，留言给我吧！
若水三千
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1618 威望：0 精华：0 注册：2013/3/20 6:28:00 		  发帖心情 Post By：2013/4/15 14:07:00 [只看该作者]

木华大哥 我的时WORD格式的 文件套打嘛不是表
[此贴子已经被作者于2013-4-15 14:06:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/15 14:09:00 [只看该作者]

用户已被锁定
 回到顶部
美女呀，离线，留言给我吧！
若水三千
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1618 威望：0 精华：0 注册：2013/3/20 6:28:00 		  发帖心情 Post By：2013/4/15 14:11:00 [只看该作者]

就是上边那段代码 我把那段做成了按钮 现在可以预览 然后在预览下点保存PDF  我想就是 不需要预览 直接就保存 PDF格式的 要怎么改写代码啊

 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/15 14:18:00 [只看该作者]

用户已被锁定
 回到顶部
帅哥哟，离线，有人找我吗？
muhua
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：等待验证 帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00 		  发帖心情 Post By：2013/4/15 14:25:00 [只看该作者]

用户已被锁定
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03760 秒, 4 次数据查询