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

simon.chenpro

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

PD961A

回復 1# simon.chenpro

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

PD961A

回復 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

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

PD961A

回復 4# simon.chenpro


    直接設定頁首/頁尾??

下載 (33.06 KB)

2010-10-10 00:44

下載 (38.93 KB)

2010-10-10 00:45

simon.chenpro

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

下載 (35.65 KB)

2010-10-10 01:33

PD961A

回復 6# simon.chenpro


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

joviwang

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

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

joviwang

我是小學生，會的東西不多，只能土法煉鋼。
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