如何解决一次选择多个动态范围
我有这个工作表,我想分两页打印,我试图进行分页,但是由于某些原因,即使我自己手动完成,也无法正常工作。因此,因此,我试图通过一次选择多个范围来选择要打印的页面(请参见下图)。问题是每次我运行宏时范围都会改变。我找不到找到该范围的方法。我的意图是将一个变量连接起来以创建一个变量,例如:Range("A1: T & lastrow")
,以便“选择”所需的所有范围。
代码如下:
Dim ws As Worksheet
Dim imprimir As Object
Dim lrow As Variant
Dim lrow1 As Variant
Dim lrow2 As Variant
Dim rn As Range
Dim LPics As Shape
For Each LPics In ActiveSheet.Shapes
lrow = Application.WorksheetFunction.Max(LPics.BottomRightCell.Row,lrow)
Next LPics
lrow = lrow + 1
lrow1 = lrow + 1
lrow2 = lrow1 + 40
'Here I tried to do the selecting but gives me method range of object _global failed
Set rn = Worksheets("Resultados").Range("A1:T & lrow,A & lrow1: T & lrow2")
Set ws = ActiveWorkbook.Worksheets("Resultados")
With ws.PageSetup
.Zoom = False
.PaperSize = xlPaperLetter
.Orientation = xlLandscape
.HeaderMargin = 0#
.FooterMargin = 0#
.BottomMargin = 0#
.LeftMargin = 0#
.RightMargin = 0#
.TopMargin = 0#
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ws.PrintOut
End Sub
解决方法
尝试一下
Sub Imprmir()
Dim ws As Worksheet
Dim imprimir As Object
Dim lrow As Variant
Dim lrow1 As Variant
Dim lrow2 As Variant
Dim rn As Range
Dim LPics As Shape
For Each LPics In ActiveSheet.Shapes
lrow = Application.WorksheetFunction.Max(LPics.BottomRightCell.Row,lrow)
Next LPics
lrow = lrow + 1
lrow1 = lrow + 1
lrow2 = lrow1 + 40
Set ws = ActiveWorkbook.Worksheets("Resultados")
'* You don't need this
'Here I tried to do the selecting but gives me method range of object _global failed
'Set rn = ws.Range("A1:T & lrow,A & lrow1: T & lrow2")
With ws.PageSetup
.Zoom = False
.PaperSize = xlPaperLetter
.Orientation = xlLandscape
.HeaderMargin = 0#
.FooterMargin = 0#
.BottomMargin = 0#
.LeftMargin = 0#
.RightMargin = 0#
.TopMargin = 0#
.FitToPagesTall = 1
.FitToPagesWide = 1
'Set print areas and print out
.PrintArea = "$A$1:$T$" & lrow & ",$A$" & lrow1 & ":$T$" & lrow2
ws.PrintOut
'Clear the print area
.PrintArea = ""
End With
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。