標題: 分頁預覽 [打印本頁]

---

作者: mmggmm    時間: 2012-5-8 15:12     標題: 分頁預覽

一個有關"分頁預覽"問題,同一囼巨集,在報表P2執行ok,在報表P1未能完成.請各位大大指出錯在那裡.[attach]10857[/attach]

---

作者: register313    時間: 2012-5-8 23:48

回復 1# mmggmm

1. Public Sub 報表p1()
   
2. ActiveSheet.ResetAllPageBreaks
   
3.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
   
4.         If WorksheetFunction.IsText(Rng.Value) Then
   
5.             If Left(Rng.Value, 2) = "日期" Then
   
6.          '  If Rng.Offset(-1, 7) = 0 Then Exit For     '這句是作什麼用的,把它註解掉
   
7.            ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
   
8.                 ActiveSheet.PageSetup.PrintArea = "A1:F" & Rng.Row
   
9.                 ActiveWindow.View = xlPageBreakPreview
   
10.                
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub

複製代碼

---

作者: mmggmm    時間: 2012-5-9 09:25

register313 ,依你的問題已解決,多謝.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)