VBA宏打印列A-J和每40行

Question

我對VBA宏很新。我正在嘗試創建一個宏，它將設置列A-J和每40行的打印區域。對於每個工作表，總行數將會改變，但列將保持不變。

到目前爲止，我只能得到正確打印的第一頁。這是我迄今爲止所擁有的。

-

Sub formatSheets() 


For i = 40 To 1350 Step 40 
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1) 

Range("A1:J1350").Select 

Next 
End Sub 

-

非常感謝你的幫助。

-Mary

Answer 1

我會重置所有頁面，休息和添加新的頁面，在休息之前設定每張紙上打印區域。

Sub formatSheets() 
    Dim ws As Worksheet 
    For Each ws In ActiveWindow.SelectedSheets 
     ws.PageSetup.PrintArea = Intersect(.Columns("A:J"), .UsedRange) 
     ws.ResetAllPageBreaks 
    End With 

    With ActiveWindow.SelectedSheets 


     For i = 40 To 1350 Step 40 
      .HPageBreaks.Add Before:=Cells(i + 1, 1) 
     Next 
    End With 
End Sub