如何操作MS Excel的頁面從MS Access減免2003 VBA

Question

我有一個生成如下圖所示的Excel電子表格一個MS Access VBA代碼，我需要讓我的分頁符輸出這樣的：

這個：

編程在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 x頁第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 

當然，這裏採用在A列和第1行中最後使用的電池，所以最右下角非空白。