如何从MS Access 2003 VBA操作MS Excel分页符

我有一个生成Excel电子表格的MS Access VBA代码，如下所示，我需要从中进行分页符输出：

为此：

在MS Access VBA中以编程方式进行

我已经尝试了一堆代码（见下面的代码片段），但不知何故，它们都没有成功，甚至没有一点变化

代码片段#1）

代码片段#2）

代码片段#3）

---

非常感谢您在这方面提供的任何帮助。非常感谢！：）

我不太理解您的代码片段，但根据屏幕截图，您希望将其打印在包含所有内容的一页上。类似这样的设置会将excel中的打印区域设置为1页x 1页-

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

---

当然，这将使用A列和第1行中最后使用的单元格，因此最右下角的单元格是非空的。

我最初要求在MS Access中运行此代码，但从长远来看，我认为最好在MS Excel文件中运行。因此，在这段代码中稍加调整（在.PageSetup下，我添加了.Zoom=False，并更改了.FitToPagesTall=1），我成功地让它工作起来。非常感谢您的帮助。：）

Dim Rng As Excel.Range

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

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

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