Board logo

標題: [發問] 如何使用巨集來選取列印範圍 [打印本頁]

作者: lichang    時間: 2014-7-9 00:56     標題: 如何使用巨集來選取列印範圍

我知道 可使用ActiveSheet.PageSetup.PrintArea = "$B$1:$AA$200,$B$201:$AA$227"
來選擇B1~AA200 以及 B201~AA227 兩區範圍作列印範圍
但是如果我有更多區快要做選擇的時候,很容易會發生lose的可能
所以我有辦法可以做到
類似 A=range("B1:AA200")
         B = range("B201:AA227")
ActiveSheet.PageSetup.PrintArea = A,B 類似的方式嗎??

謝謝!!
作者: stillfish00    時間: 2014-7-9 23:27

回復 1# lichang
看不太懂,改用
Dim A as Range,B as Range
set A=range("B1:AA200")
set B = range("B201:AA227")
就不會漏掉嗎 ???

下面意思都差不多
  1. ActiveSheet.PageSetup.PrintArea = A.address & "," & B.address
複製代碼
  1. ActiveSheet.PageSetup.PrintArea = Application.Union(A, B).Address
複製代碼

作者: lichang    時間: 2014-7-9 23:37

回復 2# stillfish00

謝謝您的回覆,因為我有很多區快要依不同條件選擇,所以我才會希望能用名稱的方式來決定選擇區塊
感謝您幫我的大忙!!
作者: lichang    時間: 2014-7-10 12:17

回復 2# stillfish00

不好意思,我又遇到問題了
Set 基本視窗 = Sheet1.Range("B1:AA200")
Set 二軸資料 = Sheet2.Range("B1:Z27,B50:Z92,B148:Z185,B246:Z275,B295:Z324,B344:Z387")

我這兩筆資料是在不同的分頁!!
我發現這樣好像沒辦法指定第二分頁的部分,請問是哪裡需要修改呢??
作者: stillfish00    時間: 2014-7-10 23:38

回復 4# lichang
不同的工作表設定是分開的...
Sheet1只能指定Sheet1上的儲存格範圍
Sheet2的範圍要在Sheet2設定...
Sheet2.PageSetup.PrintArea = Sheet2.Range("A1")




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