Foxtable(狐表)用户栏目专家坐堂 → [求助]打印列宽的设置


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

主题:[求助]打印列宽的设置

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

嗯嗯,是的,列宽不是磅作为单位。

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2018/3/14 23:40:00 [只看该作者]


ws.range("D:D").ColumnWidth = 6
Output.Show(ws.range("D:D").Columns.width)------这个结果显示是39.75,是不是很怪异?

设置了宽度,实际再读出来,数值=6*设置的值+3.75,百思不得其解。
[此贴子已经被作者于2018/3/14 23:41:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

得到的值width,应该是转换成另外某种单位了。不应该纠结这个。如果想弄明白,上网搜索一下资料。
[此贴子已经被作者于2018/3/14 23:44:00编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2018/3/14 23:45:00 [只看该作者]

试了好久才发现这个问题,帮助文件要修正一下了。要不然还真是用起来痛苦不已

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2018/3/15 11:21:00 [只看该作者]

另外,通过代码设置的页眉,无法顶着页边距输出,不好看,如何改进?
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\Toone\Documents\Foxtable项目\列宽设置\reports\CS.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    '设置打印区域
    '.PrintArea = "A1:H10"   '打印工作表的指定区域
    .PrintArea = Ws.UsedRange.Address   '打印工作表的使用区域
    .PrintTitleColumns = Ws.Columns("A:C").Address   '打印列标题(在每一页的左边重复出现)
    .PrintTitleRows = Ws.Rows(1).Address '打印行标题(在每一页的顶部重复出现)
    '设置页面
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小
    .LeftMargin = 60 '页面左边距
    .RightMargin = 60'页面右边距
    .TopMargin = 50  '页面顶部边距
    .BottomMargin = 50   '页面底部边距
    .HeaderMargin = 40   '页面顶端到页眉的距离
    .FooterMargin = 40   '页脚到页面底端的距离
    '.CenterHorizontally = False   '页面水平居中
    '.CenterVertically = True '页面垂直居中
    '设置页眉
    .LeftHeader = "打印日期: &D" '左页眉,&D表示日期
    .CenterHeader = "&""隶书,常规""&20 数据分析表"   '中页眉,并将字体设置为隶书和20号字大小
    .RightHeader = "打印者: 张三" ' & App.UserName '右页眉
    '设置页脚
    .LeftFooter = "文件: &F  &A" '左页脚,&F表示文件名,&A表示工作表名
    .CenterFooter = ""   '中页脚为空
    .RightFooter = "第 &P 页  共 &N 页"  '右页脚
    '打印模式
    '.Orientation = MSExcel.xlPageOrientation.xlPortrait  '纵向打印
    .Orientation = MSExcel.xlPageOrientation.xlLandscape '横向打印
    '.PrintHeadings = True'打印行号和列标
    '.PrintGridlines = True   '打印网格线
    '缩放打印
    '.Zoom = False'以下设置将缩印在一页内
    '.FitToPagesWide = 1  '按照1页的宽度打印
    '.FitToPagesTall = 1  '按照1页的高度打印
End With
App.Visible = True
Ws.PrintPreview
App.Quit
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cs.xls

图片点击可在新窗口打开查看此主题相关图片如下:页眉页脚设置问题.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、你设置打印内容水平居中了。也就是你把表格水平居中了。

 

如果你表格内容没有占满整个A4纸的宽度,就会出现你这个问题。

 

2、只有表格内容的宽度刚好等于你纸张的宽度,在可能左右对齐,不然,就只能左对齐,右边不可能对齐的。

 

3、没办法设置页眉页脚。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果你表格的内容的宽度是固定的,你可以在页眉页脚加入空格适当调整位置。

 回到顶部
总数 17 上一页 1 2