Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印表的问题！！！


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

主题：打印表的问题！！！
帅哥哟，离线，有人找我吗？
lmlptj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		打印表的问题！！！  发帖心情 Post By：2015/7/10 11:20:00 [只看该作者]

表中各行间距设置成30后，打印预览又成了默认的高度？？如何调节呢？？
[此贴子已经被作者于2015/7/10 11:20:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/10 11:24:00 [只看该作者]

 呃，什么情况下的打印？

 

 你代码怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
lmlptj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		  发帖心情 Post By：2015/7/10 11:45:00 [只看该作者]

以下是引用大红袍在2015/7/10 11:24:00的发言：

 呃，什么情况下的打印？

 

 你代码怎么写？


按钮单击事件：


With Tables("统计").PrintInfo

    .Title = Format(Date.Today,"yyyy年MM月dd日") & "测评结果统计表"

    .PageFooter = "第[PageNo]页,共[PageCount]页"

    .PageFooterLine = True

    .PaperKind = 9

    .FitIntoPage = True

    .LandScape = True

End With

Tables("统计").Print(True,False)


初始设置的表行高：


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

最后预览的行高却又变成了默认值：

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/10 12:34:00 [只看该作者]

 我测试没问题。你肯定是写错表名了。

 

 


With Tables("窗口表").PrintInfo

    .Title = Format(Date.Today,"yyyy年MM月dd日") & "测评结果统计表"

    .PageFooter = "第[PageNo]页,共[PageCount]页"

    .PageFooterLine = True

    .PaperKind = 9

    .FitIntoPage = True

    .LandScape = True

End With

Tables("窗口表").Print(True,False)

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


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		  发帖心情 Post By：2015/7/10 14:47:00 [只看该作者]

以下是引用大红袍在2015/7/10 12:34:00的发言：

 我测试没问题。你肯定是写错表名了。

 

 


With Tables("窗口表").PrintInfo

    .Title = Format(Date.Today,"yyyy年MM月dd日") & "测评结果统计表"

    .PageFooter = "第[PageNo]页,共[PageCount]页"

    .PageFooterLine = True

    .PaperKind = 9

    .FitIntoPage = True

    .LandScape = True

End With

Tables("窗口表").Print(True,False)

 



真是表名写错了！！！谢谢老师指点！！！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06836 秒, 4 次数据查询