標題: [發問] 請教各位前輩，如何列印多份自動跳號? [打印本頁]

---

作者: zero20209    時間: 2016-4-21 18:21     標題: 請教各位前輩，如何列印多份自動跳號?

本帖最後由 zero20209 於 2016-4-21 18:23 編輯

我有一份資料，公式都已經設定完成，在工作表 A1 的位置是一個日期
而這個日期每一天下面的儲存格都已經跟其他公式連動，所以只要更改日期就可以印出我要的東西
重點來了，我想要連續列印一個禮拜，或者是一個月，但是目前只能每按一個日期然後再按一次列印
請問有辦法設定一個按鈕，寫出巨集，讓此工作表可以設定要列印的份數，然後每列印一份，日期會自動+1嗎?

例如:目前4月1號，按了按鈕，出現要列印份數的提示，我選了7，他就會列印4月1號道4月7號的工作表出來

我有設定一個按鈕並填寫了巨集
以下是我找出來的，但沒辦法達到我要的功能，因為巨集還不完善
請問各位前輩們能幫我完善此巨集，或者是提供更好的方式嗎?
先在此說聲感謝

Sub 列印自動跳號()
    Dim myPrintNum As Integer
    Dim myPrompt, myTitle As String
    myPrompt = "請輸入要列印的份數"
    myPrintNum = Application.InputBox(myPrompt, myTitle, 4, , , , , 1)
    ActiveSheet.PrintOut
    Range("A1") = Range("A1") + 1
End Sub

---

作者: 准提部林    時間: 2016-4-22 09:59

Sub 列印自動跳號()
　　Dim myPrintNum As Integer
　　myPrintNum = Application.InputBox("請輸入要列印的份數", , 1)
　　For i = 1 To myPrintNum
　　　　ActiveSheet.PrintOut
　　　　If i < myPrintNum Then [A1] = [A1] + 1
　　Next
End Sub

---

作者: zero20209    時間: 2016-4-22 11:23

感謝前輩的指導，這正是我想要的功能

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)