以下代碼再非樞紐表可正常運作,但套用在樞紐表上卻都無法執行...
使用輔助格將 【總計】取出來也無法套用...- Sub 列印()
- '自動選擇列印範圍
- ActiveSheet.ResetAllPageBreaks
- For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
- If WorksheetFunction.IsText(Rng.Value) Then
- If Left(Rng.Value, 3) = "總計" Then
- If Rng.Offset(-1, 7) = 0 Then Exit For
- ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
- ActiveSheet.PageSetup.PrintArea = "A1:I" & Rng.Row
- End If
- End If
- Next
- End Sub
 自動設定列印範圍.rar (192.69 KB)
|
發表於 2016-2-10 13:08
| 
