標題: [發問] 列印自動編流水號問題 [打印本頁]

---

作者: simon.chenpro    時間: 2010-10-9 15:14     標題: 列印自動編流水號問題

不好意思，我又有問題了
請教一下各位大大
在使用Excel列印時，可以依列印的份數做流水號嗎？
例如Excel只有一個頁面，我在列印設定時列印５份
　　可以用什麼方式在５份相同資料上顯示1~5嗎?
以上，謝謝

---

作者: PD961A    時間: 2010-10-9 22:54

回復 1# simon.chenpro

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

---

作者: PD961A    時間: 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    時間: 2010-10-10 00:31

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

---

作者: PD961A    時間: 2010-10-10 00:45

回復 4# simon.chenpro


    直接設定頁首/頁尾??

[attach]3101[/attach]


[attach]3102[/attach]

---

作者: simon.chenpro    時間: 2010-10-10 01:33

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

---

作者: PD961A    時間: 2010-10-10 01:42

回復 6# simon.chenpro


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

---

作者: joviwang    時間: 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

---

作者: simon.chenpro    時間: 2010-10-13 12:36

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

---

作者: joviwang    時間: 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

---

作者: simon.chenpro    時間: 2010-10-18 22:59

回復 10# joviwang


    謝謝 , 可以再問一下嗎?
    如果我想把設定的頁數寫在B1欄上的話要怎麼設定

---

作者: joviwang    時間: 2010-10-18 23:49

cells(1,2)就是B1
cells(2,3)你猜是哪一格？哈，隨堂考試。

轉貼個範例：來自於VBA的說明

此範例在 Sheet1 上的儲存格 A1:J4 中進行迴圈。如果其中有一個儲存格的值小於 0.001，本範例就將該值取代為 0 (零)。


For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex

ps. cells(4,10)就是J4儲存格。

---

作者: simon.chenpro    時間: 2010-10-21 18:05

cells(2,3)就是C2欄位
學到了,也解決了我的問題
謝謝joviwang大大

---

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