利用巨集自動選定列印範圍

mmggmm

12345678.rar (14.11 KB)

下載次數: 44

2010-7-27 17:04

可否利用巨集自動選定列印範圍,
,把

Min

不懂您所謂的"自動"是什麼意思?

是自動將Sheet所有資料"自動"列印為一頁嗎?
還是某個點 需要分頁?
ActiveSheet.PageSetup.PrintArea = "$A$1IV$65535"   '這是設定列印範圍 您自己試試吧~

kimbal

用"核數員"定位
ActiveSheet.ResetAllPageBreaks
    For Each rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        If WorksheetFunction.IsText(rng.Value) Then
            If Left(rng.Value, 3) = "核數員" Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=rng.Offset(1, 0)
            End If
        End If
    Next

Hsieh

回復 1# mmggmm

1. ActiveSheet.ResetAllPageBreaks
   
2.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
   
3.         If WorksheetFunction.IsText(Rng.Value) Then
   
4.             If Left(Rng.Value, 3) = "核數員" Then
   
5.             If Rng.Offset(-1, 7) = 0 Then Exit For
   
6.                 ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
   
7.                 ActiveSheet.PageSetup.PrintArea = "A1:J" & Rng.Row
   
8.             End If
   
9.         End If
   
10.     Next

複製代碼

mmggmm

多謝,問題以解決

catmm

好強喔~~
可以自動判別內容有無物
來決定要不要列印
又學到了

leehom

回復  mmggmm
Hsieh 發表於 2010-7-27 23:05

    這個太棒了,會自動感測到文字設定列印範圍,但我有一些空格是輸入了函數而隱藏了文字,
    這個公式能否忽略隱藏的文字?THX