Как манипулируют разрывы страниц MS Excel из MS Access 2003 VBA

Question

У меня есть код MS Access VBA, который генерирует таблицу Excel, показанную ниже, и мне нужно, чтобы мой выход разрыва страницы из этого:

в это :

программно в MS Access VBA.

Я пробовал уже кучу кодов (см. Ниже фрагменты), но каким-то образом ни один из них не сделал трюк и даже малейшего изменения.

фрагмент кода # 1)

ActiveWindow.View = xlPageBreakPreview 
ActiveSheet.ResetAllPageBreaks 

i = 1 
If ActiveSheet.HPageBreaks.Count > 0 Then 
    Do 
     Set ActiveSheet.HPageBreaks(i).Location = Range("A" & (i * 70) + 1) 
     If i = ActiveSheet.HPageBreaks.Count Then Exit Do 
      i = i + 1 
     Loop 
End If 
Do Until Cells((i * 70) + 3, 1).Value = "" 
    ActiveSheet.HPageBreaks.Add Before:=Range("a" & (i * 73) + 1) 
     i = i + 1 
    Loop 
ActiveWindow.View = xlNormalView 

фрагмент кода # 2)

Dim Rng As Excel.Range 

Set Rng = xls.Rows("1:75") 
Rng(75).PageBreak = -4135 

фрагмент кода # 3)

xls.HPageBreaks.Add Before:=xls.Cells(73, 1) 

Любая помощь в этом высоко ценится. Огромное спасибо! :)

Answer 1

Я не очень хорошо понимаю ваши фрагменты, но на основе снимка экрана вы хотите распечатать его на одной странице, содержащей все. Нечто подобное задает область печати на 1 странице х 1 страницы в Excel -

Sub breaks() 
Dim rLastCol As Long 
Dim rLastRow As Long 
With ActiveSheet 
rLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
rLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 

    With .PageSetup 
.PrintArea = Range("A1", Cells(rLastRow, rLastCol)).Address 
.FitToPagesWide = 1 
.FitToPagesTall = False 
    End With 

End With 
End Sub 

Конечно, это использует последнюю использованную ячейку в столбце А и в строке 1, так что самый нижний правый непустой.