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

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

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

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

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

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

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

打开编辑好的Excel文档,选中想要打印的区域,如图所示(阴影图层部分为所要打印的区域)。 点击页面布局选项卡,选择打印区域选项, 点击设置打印区域子选项,这时候就成功设置了打印区域。 在设置好打印区域后,需要对选中的打印区域的输出效...

Sub s() ct = 2 k = 1 Do While [g1:j3].Item(k) "" If k > 12 Then Exit Sub Else k = k + 1 End If Loop t = Cells(Rows.Count, ct).End(3) n = Cells(Rows.Count, 11).End(3).Row For i = 11 To 353 If Cells(n - 3, i) - Cells(n - 2, i) = ...

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

不知道 你具体要做什么 为什么要 两个表的 打印内容 放到 一个预览页面中………… 你可以使用如下方式 进行打印预览…… 按住 ctrl 键 然后 用鼠标 选择工作表 标签上 的sheet1 和sheet2 然后 打印预览……这样 就可以 在一个预览界面 预览两个表的内容...

例子代码: ActiveSheet.PageSetup.PrintArea = "$A$1:$C$4"

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