返回列表 上一主題 發帖

[發問] 請教關於列印範圍問題(儲存格沒有資料不列印)

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-1-22 13:03 | 顯示全部帖子
本帖最後由 准提部林 於 2016-1-22 13:09 編輯

方法１：
使用〔動態範圍〕的〔定義名稱〕：
名稱：Print_Area
公式：=INDIRECT("A1:K"&COUNTA(INDIRECT("A:A")))　

每一工作表設一次∼∼可用〔複製〕，按〔Ctrl + V〕貼上

方法２：
在〔活頁簿事件〕中貼入以下程式：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1:K" & [A65536].End(xlUp).Row).Name = "'" & ActiveSheet.Name & "'!Print_Area"
End Sub
　
　

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2016-1-23 12:06 | 顯示全部帖子
本帖最後由 准提部林 於 2016-1-23 12:10 編輯

回復 3# hairyhead


〔Print_Titles〕與〔Print_Area〕並不衝突，

Ａ欄若為純數字，且為〔數值格式〕，
公式改為：=INDIRECT("A1:K"&MATCH(9E+307,INDIRECT("A:A")))

沒有檔案，無法判定真正的列印函蓋範圍，基本表格可能包含〔表首．標題列．資料區〕！

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題