tnjk.net
当前位置:首页 >> EXCEL VBA怎么实现CTRL+A功能并且设定打印区域? >>

EXCEL VBA怎么实现CTRL+A功能并且设定打印区域?

我有点小疑问,既然是全选,接着设定为打印区域, EXCEL工作表本来就是打印全部范围呀? 当然,你可以用录制宏,来用VBA实现你的想法. 点工具栏---宏---录制宏 结束录制后,点工具栏---宏---运行宏执行, 还可以点工具栏---宏---编辑宏

方法1:先用PrintArea 设置打印区域,然后再打樱这种设置将会保存到EXCEL文件中。比如: Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5" Worksheets("Sheet1").PrintOut 方法2:直接打印指定区域,而不修改打印区域设置。比如 Workshe...

If ActiveCell.CurrentRegion.Count > 1 Then ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address

QZ 命名里可以设置打印区域 Print_Area 为名称 用函数就可以动态引用了

录制宏的方式(包括打印范围选取所选择的区域),然后根据选取区域的规则修改选取区域这一部分的代码。

例如设置D8:E13为打印区域的VBA语句为: ActiveSheet.PageSetup.PrintArea = "$D$8:$E$13"

'程序开头声明一个:Private Declare Function GetTickCount Lib "kernel32.dll" () As Long'跑一个死循环,循环里面含一个sleep(6000)SendKeys ("^s")

Sub Macro1() Dim ar As Range Const col = "H" '复制到的列 For Each ar In Selection.Areas ar.Copy Range(col & ar.Cells(1, 1).Row()) Next arEnd Sub利用range对象的Areas属性,Areas集合中的每个元素都是一个range对象,它对应多重区域中...

增加一个变量(Y),这个变量为打印区域的最后一行的行数(row),设置打印区域为动态, Y=90*ROUNDUP(X/90)'取整数页面的总行数 具体的代码相信你能写成。

不需要用vba代码设置打印,设置方法如下: 打开编辑好的Excel文档,选中想要打印的区域,如图所示(阴影图层部分为所要打印的区域)。 点击页面布局选项卡,选择打印区域选项, 点击设置打印区域子选项,这时候就成功设置了打印区域。 在设置好...

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com