標題:
[發問]
打印下拉式選單中所有張數
[打印本頁]
作者:
kennet
時間:
2013-4-23 15:10
標題:
打印下拉式選單中所有張數
在EXCEL中, 有一頁是DATA(約6千個項目), 另外一頁是表格, 表格中第一行用了下拉式選單, 而第二及第三行會因應第一行既選擇而變化, 如果我想打印這6千多份表格, 有何方法不用逐個在選單中選擇之後按打印而可以按一個制可以自行選好及自動打印這6千份???
作者:
Hsieh
時間:
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
複製代碼
作者:
kennet
時間:
2013-4-24 09:50
本帖最後由 Hsieh 於 2013-4-24 17:47 編輯
回復 kennet
Hsieh 發表於 2013-4-23 23:22
謝謝版主, 但本人比較笨, 還是不太明, 現附上附上, 可否幫個忙?
不盡感激!
作者:
Hsieh
時間:
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
複製代碼
作者:
kennet
時間:
2013-4-24 11:43
成功了, 多謝版主, 但有問題是, 如果一次過打印那麼多會令印表機當機, 如何可以自行設定打印多少份? (如第1至200, 如此類推)
作者:
Hsieh
時間:
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
複製代碼
作者:
kennet
時間:
2013-4-24 17:23
謝謝版主, 大成告成了~ 但可否把我上載的附件刪除???
作者:
kennet
時間:
2013-10-4 17:08
請問一下, 按照以的碼, 成功打印後每一張只有一個小框印出來, 其他都是空白的, 請問問題出在那?
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
