Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在关联表模板里设计打印时自动扩展某一列


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

主题：[求助]如何在关联表模板里设计打印时自动扩展某一列
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		[求助]如何在关联表模板里设计打印时自动扩展某一列  发帖心情 Post By：2013/12/16 18:19:00 [只看该作者]

在帮助里有如何自动扩展一列.他是对于一个表而言的,我想在关联表的EXCEL模板里设计对某一列在打印时会自动扩展,比如,要把帮助里的出库单模板中的备注列,设计成在打印时会根据内容多少自扩展,请问各位高手代码如何写,谢谢!!!(下面我把出库单模板传上来)
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/12/16 18:19:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:关联表模板.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/16 19:12:00 [只看该作者]

 不能够通过设置模板来实现自动扩展的。如果要实现，只能用vba去做，建议楼主先看看vba的知识，有介绍怎样去自动扩展列和行的。
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/12/16 20:35:00 [只看该作者]

对我来说,实在太高深,能否明示,谢谢!!!
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/16 20:47:00 [只看该作者]

 就是，你生成报表以后，用vba打开这个报表，然后设置这个报表的某一列自动扩展。看完下面一段帮助


是否缩小单元格内容以全部显示。
当单元格内的数据长度超过单元格宽度时，就会只显示一部分数据。
使用ShrinkToFit属性，可将单元格内的数据缩小，以适应单元格，使内容全部显示出来。
如：Rg.ShrinkToFit = True

如果反过来，希望自动调整单元格大小，使单元格能够显示全部数据。这需要用到AutoFit方法。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1")
Rg.Value = "Foxtable操控Excel全攻略"
Rg.Font.Size = 50 '把字体放大
Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True

如果要调整工作表全部单元格的大小，可以使用Cells属性。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
ZHX241806
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：393 积分：2498 威望：0 精华：0 注册：2013/4/17 6:41:00 		  发帖心情 Post By：2013/12/16 21:26:00 [只看该作者]

谢谢,我在学习试试看!
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询