社区
Office开发/ VBA
帖子详情
Excel里用vba怎么调整页面设置里的页眉/脚,打印标题等(工作表),急求帮助!
gillianhu
2006-02-14 09:56:51
如题。
另外,有没有关于excel里面的菜单如:文件-〉页面设置,属性设置等vba函数手册?因需要大量的关于诸如格式字体冻结窗口一类的vba设置方法。
...全文
904
2
打赏
收藏
Excel里用vba怎么调整页面设置里的页眉/脚,打印标题等(工作表),急求帮助!
如题。 另外,有没有关于excel里面的菜单如:文件-〉页面设置,属性设置等vba函数手册?因需要大量的关于诸如格式字体冻结窗口一类的vba设置方法。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
楼主,看看还有什么问题。
通用
打印
预览模块(
VBA
)
通用
打印
预览模块
可选择
打印
或预览,调用只需一条语句,可输出到
EXCEL
,也可输出到快照,对方不需安装ACCESS即可预览报
表
。
在
打印
前选择
打印
多少份,而不是在按了
打印
后才选择份数
vba
,设置,
excel
,wps ,
页面设置
全面认识
页面设置
之 PageSetup 对象我们在写
VBA
代码时,特别是做小型程序开发时,经常会用
VBA
来设置“
页面设置
”中的选项,还可用要用
VBA
来实现一些特殊的效果,这就需要使用 PageSteup 对象。PageSetup 对象包含所有
页面设置
的属性(左边距、底部边距、纸张大小等)。此对象共有 49 个属性,其中:8 个属性是
EXCEL
2007 新添加的,1 个属性在...
ChatGPT+
Excel
VBA
办公自动化
本课程试图让不会编程的你也能借助ChatGPT生成
Excel
VBA
代码,轻松实现数据处理自动化,让你从小白秒变高手。懂编程的你也能收获良多,十倍提升
工作
效率。课程用ChatGPT自动生成
VBA
代码,实现了数据处理自动化的绝大部分内容,包括数据整理、数据预处理、数据统计分析、数据可视化和
Excel
工作
表
设置等。所属系列课程:Python+
VBA
办公自动化系列课程-CSDN程序员研修院。20+课程,不断增加和更新。 讲师:童大谦图书《代替
VBA
!用Python轻松实现
Excel
编程》和《对比
VBA
学Python 高xiao实现数据处理自动化》作者。 致力于Office和WPS Office办公自动化,提供
VBA
和Python全系列视频课程。熟悉Power BI, Python, R, SPSS, MATLAB等数据分析软件。有多年VB和.NET软件开发经验。
excel
vba
打印
Excel
VBA
中可以使用下面的代码
打印
工作
表
: Sub PrintWorkSheet() ActiveSheet.PrintOut End Sub 您可以在
VBA
编辑器中输入此代码,并在
Excel
工作
表
中运行它,以
打印
当前
工作
表
。 ...
VBA
批量
打印
单
工作
簿内所有可见
工作
表
(sheet)
要解决的问题: 一个
工作
簿中有相同格式的多个sheet
表
,手动点击一张一张
打印
,太慢了。能不能一次性
打印
? 解决思路: 1、sheet
表
做好后,提前设置好
打印
的格式设置; 2、有默认的
打印
机。 3、根据
工作
表
数量进行循环,然后
打印
,
打印
份数默认设为1份。
EXCEL
VBA
代码如下: Sub test() Dim ws As Worksheet For Each ws In Worksheets If ws.Visible = xlSheetV...
Office开发/ VBA
5,138
社区成员
17,885
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章