返回列表 上一主題 發帖

[發問] 不同區域列印選擇

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-12-25 10:42 | 只看該作者

[發問] 不同區域列印選擇



各位大大
辛苦了
想請問如何用按鈕來控制印出區域
因為之後報表會有很多圖在同一張表裡面
所以想用按鈕來選擇列印範圍

有爬過文類似用PrintArea 的函數
但可能是小弟對程式沒有很熟悉
怎麼寫都錯誤
想請問大大該如何寫呢?
麻煩了

附上檔案如下
活頁簿1.zip (20.97 KB)
收藏 分享
不會EXCALL的笨蛋

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 2019-12-28 11:32 | 只看該作者
Sub 列印區_A表()
Range("A1:D9").Name = "Print_Area"
End Sub

Sub 列印區_B表()
With ActiveSheet.Shapes("資料庫圖表 1")
     Range(.TopLeftCell, .BottomRightCell).Name = "Print_Area"
End With
End Sub

TOP

prince0413
　暱稱: 香澄

中學生Rank: 2

帖子
108 
主題
23 
精華
0 
積分
140 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2013-11-2 
最後登錄
2019-12-31 
3#
發表於 2019-12-30 14:48 | 只看該作者
回復 2# 准提部林

謝謝大神~
剛剛測試了一下正是我想要的
感恩您
不會EXCALL的笨蛋

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題