[發問] 列印自動編流水號問題

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-9 22:54 | 只看該作者

回復 1# simon.chenpro

可以先參考此篇
http://forum.twbts.com/thread-1266-1-2.html
再將您的需求附檔上傳..先進及版主才能清楚理解您的需求..加速您的問題解決方向

學如逆水行舟不進則退

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-10-9 23:04 | 只看該作者

回復 1# simon.chenpro

這是舊系統的部份文章您也可以參考看看

http://gb.twbts.com/index.php?topic=2336.0

http://gb.twbts.com/index.php?topic=7060.0

http://gb.twbts.com/index.php?topic=6018.0

學如逆水行舟不進則退

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

4^#

發表於 2010-10-10 00:31 | 只看該作者

謝謝PD961A大大的回覆
不過我要的答案不是這個
沒有附檔，換另一種說明一下
例如A1欄位設定為"n/m"，列印時我設定列印５份
其５份分別列印效果為"1/5" "2/5" "3/5" "4/5" "5/5"
以上，謝謝~~

Simon

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-10-10 00:45 | 只看該作者

回復 4# simon.chenpro

直接設定頁首/頁尾??

學如逆水行舟不進則退

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

6^#

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

不好意思，還是不對
你的方式是列印5頁的效果
我指的是列印５份的效果

Simon

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

7^#

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

回復 6# simon.chenpro

^ ^...不好意思...
其實如果份數只有5份...那您就手工一下...A1儲存格1/5~5/5囉...然後設定列印範圍
若是500份就....加油囉.... ^ ^..
您的問題很清楚了..應該會有熱心的先進及版主幫您的......

學如逆水行舟不進則退

joviwang

中學生 Rank: 2

帖子: 35
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-9-14
最後登錄: 2016-12-29

8^#

發表於 2010-10-11 14:07 | 只看該作者

Sub Macro1()
For i = 1 To 5
   Cells(1, 1).NumberFormatLocal = "@"
   Cells(1, 1) = i & "/5"
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
      Next i
  End Sub

joviwang

simon.chenpro

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: windows XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2010-9-29
最後登錄: 2010-11-5

9^#

發表於 2010-10-13 12:36 | 只看該作者

joviwang大大
不好意思,因為我對VBA不懂
可以做詳細說明一下嗎?
台者是GIF最好了.....
謝謝

Simon

joviwang

中學生 Rank: 2

帖子: 35
主題: 3
精華: 0
積分: 74
點名: 0
作業系統: xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2010-9-14
最後登錄: 2016-12-29

10^#

發表於 2010-10-15 08:50 | 只看該作者

我是小學生，會的東西不多，只能土法煉鋼。
Sub Macro1()
For i = 1 To 5 '要印500次就設1 to 500
   Cells(1, 1).NumberFormatLocal = "@"  '用錄製學來的，設定A1為文字格式
   Cells(1, 1) = i & "/5"                            'A1內容為i/5，i是1時，就顯示1/5，i是2時，就顯示2/5

      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  '用錄製學來的，設定列印動作
Next i
  End Sub

joviwang