如何从MS Access 2003 VBA处理MS Excel分页符

iceheaven31 发表于 Dev

iceheaven31

我有一个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)

对此，我们将给予任何帮助。谢谢一群！:)

雷斯塔法里安

我不太了解您的代码段，但是基于屏幕截图，您希望将其打印在包含所有内容的一页上。像这样在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行中最后使用的单元格，因此是最右下角的非空白。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。