返回列表 上一主題 發帖

[發問] 請教各位前輩，如何列印多份自動跳號?

zero20209

帖子
16 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
WINDOS 7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-8-3 
最後登錄
2019-3-19 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享

zero20209

帖子
16 
主題
5 
精華
0 
積分
50 
點名
0  
作業系統
WINDOS 7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2013-8-3 
最後登錄
2019-3-19 
3#
發表於 2016-4-22 11:23 | 只看該作者
感謝前輩的指導，這正是我想要的功能

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 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

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題