DARIEN HERNANDEZ

Saludos, He intentado sin éxito lograr forzar la ubicación de los PageBreaks o saltos de paginas. Este es el código que he intentado. Mi intención es poder forzar la ubicacion de los PageBreaks pero excel los sigue ubicando donde le da la gana. Mi intención es que imprima la última pagina con todas las filas sin importar si solo utilizó las primeras filas de la última pagina. Ideas? Sub PageSetup() Dim LastRow As Long Dim Page1 As Long Dim Page2 As Long Dim Page3 As Long 'valor de la ultima celda escrita en la columna F LastRow = Cells(Rows.Count, "G").End(xlUp).Row '************PRIMERA PAGINA**************************** If LastRow <= 70 Then Page1 = 70 PageSet1 = Page1 - LastRow FinalPageSet1 = LastRow + PageSet1 With ActiveSheet.PageSetup .PrintArea = "B2:L" & FinalPageSet1 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With '***********SEGUNDA PAGINA***************************** ElseIf LastRow <= 150 Then Page2 = 150 PageSet2 = Page2 - LastRow FinalPageSet2 = LastRow + PageSet2 With ActiveSheet.PageSetup .PrintArea = "B2:L" & FinalPageSet2 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 2 End With Worksheets("Sheet1").Rows(71).PageBreak = xlPageBreakManual '***********TERCERA PAGINA***************************** ElseIf LastRow <= 230 Then Page3 = 230 PageSet3 = Page3 - LastRow FinalPageSet3 = LastRow + PageSet3 With ActiveSheet.PageSetup .PrintArea = "B2:L" & FinalPageSet3 .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 3 End With Worksheets("Sheet1").Rows(71).PageBreak = xlPageBreakManual Worksheets("Sheet1").Rows(151).PageBreak = xlPageBreakManual End If End Sub