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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 界面切换

共有4200人关注过本帖树形打印复制链接主题：界面切换

CRM2013

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：315 积分：3554 威望：0 精华：0 注册：2012/12/10 10:38:00

界面切换

Post By：2013/8/15 16:48:00 [只看该作者]

请教一个问题：

在窗口的一个按钮调用excel模版并进入打印预览。但执行完代码后，foxtable窗口还是悬于桌面的最上层，需要到任务栏去点击excel图标才能切换到EXCEL打印预览界面，是否可以直接切换到excel打印预览界面？

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/8/15 16:57:00 [只看该作者]

看看这个有没有帮助：

CRM2013

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：315 积分：3554 威望：0 精华：0 注册：2012/12/10 10:38:00

Post By：2013/8/15 17:43:00 [只看该作者]

谢谢指点，试过了但无效，改用了foxtable窗口最小化

另外请教2个问题：教材2081页中pagesetup，

1：我想页眉锤子靠上，自己编了个.TopVertically = True 直接报错了

2：我不想打印excel网络线，但希望答应最外层边框线，该如何设置？谢谢！

.CenterVertically = True '页面垂直居中

.PrintGridlines = True '打印网格线

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/15 20:17:00 [只看该作者]

楼主，我测试正常，是否可以有简单的例子可以测试？

参考下

设置边框颜色:sheet.Cells(1, 2).Borders.Color = color.red '这个是红色,x后前两个0是蓝色,中间两个0是绿色,最后两个是红色~~

设置制定边框:sheet.Range(sheet.Cells(1, 2), sheet.Cells(1 ,30)).Borders(4).LineStyle = 1

Border(4)是指下边框,3是指上边框,1是左,2是右~~填成0会报错.不加中括号是全部的边框~~~

指定边框线宽度： xlSheet.Range("B3:D4").Borders(2).Weight = 3 '1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )

[此贴子已经被作者于2013-8-15 20:17:07编辑过]

主题：界面切换