帖子: 11
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-5-28
最後登錄: 2014-2-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-23 15:10 | 只看該作者

[發問] 打印下拉式選單中所有張數

在EXCEL中, 有一頁是DATA(約6千個項目), 另外一頁是表格, 表格中第一行用了下拉式選單, 而第二及第三行會因應第一行既選擇而變化, 如果我想打印這6千多份表格, 有何方法不用逐個在選單中選擇之後按打印而可以按一個制可以自行選好及自動打印這6千份???

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-4-23 23:22 | 只看該作者

回復 1# kennet

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("Data")
For Each a In Range([A2], [A2].End(xlDown))
d(a.Value) = "" '紀錄Data工作表A欄項目
Next
End With
With Sheets("Print")
For Each ky In d.keys
.[A1] = ky '列印頁的A1寫入項目
.PrintOut '列印此頁
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

kennet

小學生 Rank: 1

帖子: 11
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-5-28
最後登錄: 2014-2-10

3^#

發表於 2013-4-24 09:50 | 只看該作者

本帖最後由 Hsieh 於 2013-4-24 17:47 編輯

回復 kennet
Hsieh 發表於 2013-4-23 23:22

謝謝版主, 但本人比較笨, 還是不太明, 現附上附上, 可否幫個忙?

不盡感激!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2013-4-24 10:14 | 只看該作者

回復 3# kennet

Sub ex()
With Sheets("Classification Sheet")
With .Range("C4")
Set ar = Evaluate(.Validation.Formula1) '將驗證公式轉成範圍
For Each a In ar
.Value = a
.PrintOut
Next
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

kennet

小學生 Rank: 1

帖子: 11
主題: 5
精華: 0
積分: 21
點名: 0
作業系統: Win7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-5-28
最後登錄: 2014-2-10

5^#

發表於 2013-4-24 11:43 | 只看該作者

成功了, 多謝版主, 但有問題是, 如果一次過打印那麼多會令印表機當機, 如何可以自行設定打印多少份? (如第1至200, 如此類推)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2013-4-24 14:04 | 只看該作者

回復 5# kennet