打印表的问题！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2091人关注过本帖树形打印复制链接主题：打印表的问题！！！

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编辑过]

lmlptj

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

lmlptj

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

真是表名写错了！！！谢谢老师指点！！！

下一主题 >> << 上一主题

主题：打印表的问题！！！