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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印表的问题！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71379)

--  作者：lmlptj
--  发布时间：2015/7/10 11:20:00
--  打印表的问题！！！
表中各行间距设置成30后，打印预览又成了默认的高度？？如何调节呢？？
[此贴子已经被作者于2015/7/10 11:20:20编辑过]

--  作者：大红袍
--  发布时间：2015/7/10 11:24:00
--

呃，什么情况下的打印？

你代码怎么写？

--  作者：lmlptj
--  发布时间：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

--  作者：大红袍
--  发布时间：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
--  发布时间：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)

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