查找表格，然后设定打印区域

w13692104

有个想法，就是做一个按钮，自动生成打印区域
具体是这样子的，关键的信息是 查询A列是否出现了2次空值，如果出现了2次空值，就把打印区域锁定

比如在A34 有数据  之后A35 A36 A37 A38 A39 A40...................都没有数据，那么打印的最尾行就锁定在 A34，生成的打印区域是A1:O34

Chip_Kenny

'See if help

Sub zz()
Application.ScreenUpdating = 0
Dim arr, myr%
arr = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
Workbooks.Add
[a1].Resize(UBound(arr), 1) = arr
myr = Cells(Rows.Count, 1).End(3).Row
ActiveWorkbook.Close 0
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$" & myr
Application.ScreenUpdating = 1
End Sub

w13692104

太感谢了！！！！！！！！！！！！！！！