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

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

8^#

發表於 2013-10-4 17:08 | 只看該作者

請問一下, 按照以的碼, 成功打印後每一張只有一個小框印出來, 其他都是空白的, 請問問題出在那?

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

7^#

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

謝謝版主, 大成告成了~ 但可否把我上載的附件刪除???

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

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

回復 5# kennet

Sub ex()
Dim s&, n&
With Sheets("Classification Sheet")
With .Range("C4")
Set ar = Evaluate(.Validation.Formula1) '將驗證公式轉成範圍
s = InputBox("Input start number", , 1)
n = InputBox("Input printed pages", , 10)
Do Until x = n
.Value = ar(s + x)
x = x + 1
.PrintOut
Loop
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

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

5^#

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

複製代碼

學海無涯_不恥下問

帖子: 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

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

不盡感激!

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

複製代碼

學海無涯_不恥下問