GBKEE

¦^´_ 1# luke

1. Option Explicit
   
2. Sub TEST()
   
3.     Dim iPageCount As Integer, i As Integer
   
4.     Application.ScreenUpdating = False
   
5.     With Sheets("Sheet1")
   
6.         .Activate
   
7.         .PageSetup.PrintTitleRows = "$1:$5"                           '¼ÐÃD¦C
   
8.         iPageCount = (.[A7].CurrentRegion.Rows.Count - 2) / 14
   
9.         .Cells(5, "O").Value = iPageCount
   
10.         For i = 1 To iPageCount
    
11.             .Cells(5, "M").Value = i
    
12.             .Range(.Cells(9 + ((i - 1) * 14), "a"), .Cells(22 + ((i - 1) * 14), "O")).Name = "Print_Area"  '¦L¦C½d³ò
    
13.             .PrintOut                                                 '¦L¦C
    
14.         Next
    
15.         .Names("Print_Area").Delete
    
16.         .Names("Print_Titles").Delete
    
17.     End With
    
18.     Application.ScreenUpdating = True
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# luke

1. Sub TEST()
   
2.     Dim iPageCount As Integer, i As Integer
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets("Sheet1")
   
5.         For i = .UsedRange.Rows.Count To 9 Step -1
   
6.             If Application.Phonetic(.Rows(i)) = "" Then .Rows(i).Delete
   
7.         Next
   
8.         .Activate
   
9.         .PageSetup.PrintTitleRows = "$1:$5"                           '¼ÐÃD¦C
   
10.         iPageCount = (.[A7].CurrentRegion.Rows.Count - 2) / 14
    
11.         .Cells(5, "O").Value = iPageCount
    
12.         For i = 1 To iPageCount
    
13.             .Cells(5, "M").Value = i
    
14.             .Range(.Cells(9 + ((i - 1) * 14), "a"), .Cells(22 + ((i - 1) * 14), "O")).Name = "Print_Area"  '¦L¦C½d³ò
    
15.             .PrintPreview            '.PrintOut                                                        '¦L¦C
    
16.         Next
    
17.         .Names("Print_Area").Delete
    
18.         .Names("Print_Titles").Delete
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21. End Sub

½Æ»s¥N½X