帖子: 12
主題: 6
精華: 0
積分: 18
點名: 0
作業系統: Win10
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-12-4
最後登錄: 2016-10-8

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-1-22 11:01 | 只看該作者

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

最近剛完全一個工作表
其工作儲存格列印範圍如下
A1~A100
A1~K1
都是有劃表格的

如果儲存格的資料只有到A1~A50、A1~K1
該怎麼設計自動列印到有資料的範圍呢?

因為單純按列印的話
列印的範圍會連A51~A100、A1~K1有劃好的空白儲存格也一併列印出來
(儲存格裡是沒有資料的)

工作表的分頁共有12張(1月到12月的)
所以每張工作表的資料固定都是A1~A100、A1~K1
但每張工作表的儲存格資料不一定都是固定的

不知道有什麼方式可以解決列印的問題嗎?
謝謝

樓主熱帖

momo020608

中學生 Rank: 2

帖子: 45
主題: 15
精華: 0
積分: 73
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2015-12-13
最後登錄: 2024-7-17

論壇贊助勳章

6^#

發表於 2017-9-4 12:26 | 只看該作者

回復 4# 准提部林

請問篩選後避開空格，但是還是無法取消空白頁
可以幫我看看嗎?

http://www.funp.net/951232

附檔案

TOP

hairyhead

小學生 Rank: 1

帖子: 12
主題: 6
精華: 0
積分: 18
點名: 0
作業系統: Win10
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-12-4
最後登錄: 2016-10-8

5^#

發表於 2016-1-23 15:14 | 只看該作者

本帖最後由 hairyhead 於 2016-1-23 15:15 編輯

剛剛試了一下
TITLES、AREA 這2個不衝突後面就沒有問題了
感謝解答

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

4^#

發表於 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

hairyhead

小學生 Rank: 1

帖子: 12
主題: 6
精華: 0
積分: 18
點名: 0
作業系統: Win10
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-12-4
最後登錄: 2016-10-8

3^#

發表於 2016-1-23 11:54 | 只看該作者

方法１：
使用〔動態範圍〕的〔定義名稱〕：
名稱：Print_Area
公式：=INDIRECT("A1:K"&COUNTA(INDIRECT ...
准提部林發表於 2016-1-22 13:03

剛剛把此公式套到原來工作表是OK的
如果原來的工作表上
在定義名稱管理裡
若已經先存在一個
Print_Titles
='工作表1'!$8:$8
這個有辨法並存嗎?

因為$8:$8這部份
已經有先設定列印標題列裡去了

所以若資料到次頁
8列都是固定出現在最上面

然後1~7列都是固定公式出現結果用的

9列之後才是輸入資料使用
(A1~A100都有公式存在，是做流水號公式用的 =IF(A9="","",ROW()-8))

這樣再新增一個定義進去會有影響或該怎麼修改呢?
謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-12

2^#

發表於 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