| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1090 人关注过本帖
标题:excel中,怎么用宏批量处理页面设置
只看楼主 加入收藏
快乐12
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-8-14
收藏
 问题点数:0 回复次数:2 
excel中,怎么用宏批量处理页面设置
Sub Macro1()
'
' Macro1 Macro
' 宏由 微软用户 录制,时间: 2010-8-14
'
' 快捷键: Ctrl+z
'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(2.3)
        .RightMargin = Application.InchesToPoints(2.3)
        .TopMargin = Application.InchesToPoints(2.3)
        .BottomMargin = Application.InchesToPoints(2.3)
        .HeaderMargin = Application.InchesToPoints(2.1)
        .FooterMargin = Application.InchesToPoints(2.1)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWorkbook.Save
End Sub
这个只能单个进行处理页面设置,怎么才能批量
进行处理页面设置
搜索更多相关主题的帖子: 页面 批量处理 excel 
2010-08-14 16:28
南国紫藤
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2008-12-25
收藏
得分:0 
看起来好深奥的样子啊!!!
2010-08-25 10:23
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
你这个宏是对当前选定的工作表进行设置的

有二种方法:
1\  另一个过程中, 循环依次设置工作表为当前工作表,然后调用这个 宏.

2\修改宏,把对 活动工作表引用改为 形参工作表 的引用.
   然后用循环,依次把各个工作表当作参数传进去.

代码我忘了,很久没看 VBA 了,你自己研究下,
建议你用第一种方法,更简单一点.运行速度可能稍比第二种方法慢一点.

还有你这个宏需要优化一下代码.仔细看看.
不过,不优化也问题不大.



授人于鱼,不如授人于渔
早已停用QQ了
2010-08-25 16:39
快速回复:excel中,怎么用宏批量处理页面设置
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031756 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved