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

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

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

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

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

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

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

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

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