Excel里用vba怎么调整页面设置里的页眉/脚,打印标题等(工作表),急求帮助!

gillianhu 2006-02-14 09:56:51
如题。
另外,有没有关于excel里面的菜单如:文件-〉页面设置,属性设置等vba函数手册?因需要大量的关于诸如格式字体冻结窗口一类的vba设置方法。
...全文
904 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
txz2003 2006-02-18
  • 打赏
  • 举报
回复
Sub SetFont(DanYuanGe As String)
Range(DanYuanGe).Select
With Selection.Font
.Name = "黑体" '设置字体
.Size = 16 '设置字号
End With
With Selection
.HorizontalAlignment = xlCenter '设置水平对齐方式为居中
.VerticalAlignment = xlTop '设置垂直对齐方式为靠上
End With
End Sub

'用法 SetFont("A1")或SetFont("A1:D1")或SetFont("A:B")这里指A列和B列
txz2003 2006-02-18
  • 打赏
  • 举报
回复
Sub SetPrint()
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2" '顶端打印标题行区域
.LeftHeader = "" '设置左边页眉显示
.CenterHeader = "" '设置居中页眉显示
.RightHeader = "" '设置右边页眉显示
.LeftFooter = "" '设置左边页脚显示
.CenterFooter = "第 &P 页,共 &N 页" '设置居中页脚显示
.RightFooter = "" '设置右边页脚显示
.LeftMargin = 1 * 567 '设置左边距为1厘米
.RightMargin = 1.5 * 567 '设置右边距为1.5厘米
.TopMargin = 2.2 * 567 '设置上边距为2.2厘米
.BottomMargin = 2.1 * 567 '设置下边距为2.1厘米
.PaperSize = xlPaperA4 '设置纸张大小
End With
End Sub

楼主,看看还有什么问题。

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧