標題: [發問] 請問如何自動設定列印範圍(樞紐表) [打印本頁]

---

作者: starry1314    時間: 2016-2-10 13:08     標題: 請問如何自動設定列印範圍(樞紐表)

以下代碼再非樞紐表可正常運作,但套用在樞紐表上卻都無法執行...
使用輔助格將 【總計】取出來也無法套用...

1. Sub 列印()
   
2. '自動選擇列印範圍
   
3. ActiveSheet.ResetAllPageBreaks
   
4.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
   
5.         If WorksheetFunction.IsText(Rng.Value) Then
   
6.             If Left(Rng.Value, 3) = "總計" Then
   
7.             If Rng.Offset(-1, 7) = 0 Then Exit For
   
8.                 ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
   
9.                 ActiveSheet.PageSetup.PrintArea = "A1:I" & Rng.Row
   
10.             End If
    
11.         End If
    
12.     Next
    
13. End Sub

複製代碼

[attach]23257[/attach]

---

作者: starry1314    時間: 2016-2-11 21:35

還是說此代碼無法判斷樞紐表上的值呢

---

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