tnjk.net
当前位置:首页 >> ExCEl07怎样设置打印区域的vBA >>

ExCEl07怎样设置打印区域的vBA

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

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

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

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

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

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

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

sub dayin() Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表 打印一份 如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)带参数的打印 参数说明:共四个参数 参数1-数...

按ALT+F11,进入VBE,选择Staves表,复制下面的代码。。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$2" Or Target.Address = "$K$2" Then Dim i With ThisWorkbook.Sheets("Staves") For i = 11 To 790 If ....

批量打印可以通过VBA的,代码如下: Sub 批量打印() '遍历工作表,实现批量打印 For i = 1 To Sheets.Count Sheets(i).PrintOut Next End Sub

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