帖子: 25
主題: 4
精華: 0
積分: 156
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2021-8-29

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-7-9 09:12 | 只看該作者

依列印份數自動產生流水號

本帖最後由 sping 於 2010-7-9 14:43 編輯

因工作上需要，做了一個會自動依列印份數產生流水號的檔案，流水號可以順利產製，可是如果列印10份則也會產生10次的「列印訊息方塊」(因為有時會列印100份，也會產生100次「列印訊息方塊」)，不曉得各位大大有解決的辦法嗎?

依列印份數產製流水號.zip (23.28 KB)

樓主熱帖

jangjw

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: win 7
軟體版本: 旗艦版
閱讀權限: 10
性別: 男
註冊時間: 2013-2-27
最後登錄: 2013-2-27

6^#

發表於 2013-2-27 06:11 | 只看該作者

回復 1# sping

工作上正好會用到~只是不能下載~~

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2010-12-22 12:22 | 只看該作者

回復 3# sping

只出現一次列印對話方塊

Sub 列印申請書()
Dim sh()
Application.DisplayAlerts = False
Sheets("申請書").Range("x24") = Sheets("輸入區").Range("b13")
w5 = Application.InputBox("列印申請書多少份？ ", Type:=1)
If w5 < 1 Then
MsgBox "未輸入正確之列印份數，無法列印申請書"
Else
With ws
For skb = 1 To w5
Sheets("申請書").Range("x24").Value = Sheets("申請書").Range("x24").Value + 1
Sheet2.Copy after:=Sheets(Sheets.Count)
ReDim Preserve sh(s)
sh(s) = ActiveSheet.Name
s = s + 1
Next skb
End With
End If
Sheets(sh).PrintOut
Sheets(sh).Delete
Application.DisplayAlerts = True
End Sub

複製代碼

學海無涯_不恥下問

TOP

mit1688

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: xp
軟體版本: 1
閱讀權限: 10
註冊時間: 2010-12-22
最後登錄: 2010-12-22

4^#

發表於 2010-12-22 12:02 | 只看該作者

我現在非常需要這項工具
可是我卻不能下載

怎辦阿

TOP

sping

中學生 Rank: 2

帖子: 25
主題: 4
精華: 0
積分: 156
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2021-8-29

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-7-10 10:40 | 只看該作者

回復 2# luhpro

我說的列印訊息方塊就是指「單純顯示正在列印資料的訊息」，就是你說的後者，我是想找看有沒有像類似『Application.DisplayAlerts = False 』關閉警示訊息的語法，如果沒有這種語法，那只好無視訊息的存在，只是有時候列印50份資料，訊息就跑50次，比較討厭，但還是可以完成工作。
還有謝謝你幫我把程式碼改得更簡潔了。我在vba還算初學者，還需要多跟各位前輩學習學習。

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2010-7-10 01:12 | 只看該作者

回復 1# sping

抱歉, 有個地方看不懂 :

With ws
.
.
.
End With

中的 ws 不知道是代表什麼或是用在哪裡?

另上述部分程式建議若改成 :

With Sheets("申請書")
  For skb = 1 To w5
   .PrintOut
   .Range("x24").Value = .Range("x24").Value + 1
  Next skb
End With

可能會更簡潔一些.

因為剛下班到家目前手頭上沒有印表機可以模擬你所說的情形,
所以暫時只能先用猜測的.

你所說的「列印訊息方塊」不知道是不是選擇印表機的訊息?
如果是的話可以在 expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName) 內的 ActivePrinter 參數上直接指定你要用的印表機名稱,
這樣就不會再出現訊息視窗問你要用哪一台印了.

但如果只是單純顯示正在列印資料的訊息,
而 "無需人工介入操作" 才會繼續列印下一張的話,
建議你還是直接無視該訊息吧,
畢竟就如同 Office 的各個成員一樣,
當你列印時同樣會出現「列印訊息方塊」,
這是Windows系統本身接收到列印要求時所產生的回應機制.

TOP