Board logo

標題: 利用巨集自動選定列印範圍 [打印本頁]
作者: mmggmm    時間: 2010-7-27 17:05     標題: 利用巨集自動選定列印範圍

本帖最後由 mmggmm 於 2010-7-27 17:09 編輯

[attach]2029[/attach]
可否利用巨集自動選定列印範圍,
,把
作者: Min    時間: 2010-7-27 19:16

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

是自動將Sheet所有資料"自動"列印為一頁嗎?
還是某個點 需要分頁?
ActiveSheet.PageSetup.PrintArea = "$A$1IV$65535"   '這是設定列印範圍 您自己試試吧~
作者: kimbal    時間: 2010-7-27 19:20

用"核數員"定位
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    時間: 2010-7-27 23:05

回復 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    時間: 2010-7-28 11:31

多謝,問題以解決
作者: catmm    時間: 2010-8-7 09:32

好強喔~~
可以自動判別內容有無物
來決定要不要列印
又學到了
作者: leehom    時間: 2015-9-15 12:42

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




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



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