vba打印及流水號的問題

方法1,beforeprint事件,假設頁碼放在F12,終止號放在G12(G12不在打印區域),打印區域是A1:F12,在宏代碼編輯頁面復制以下代碼,打印時在F12輸入起始頁,G12輸入終止頁,點擊打印,會自動每頁+1打印出來.

Sub?Workbook_BeforePrint()

[F12]?=?[F12]?+?1

If?[F12]?<=?[G12]?Then?Range("A1:F12").PrintOut

End?Sub

方法2,獨立制作壹個打印宏.假設打印區域A1:F12,頁碼放在F12復制以下宏代碼,運行"打印"宏時會提示妳輸入起始和終止頁碼.

Sub?打印()

n?=?InputBox(prompt:="請輸入起始頁碼",?Default:=1,?Type:=1)

m?=?InputBox(prompt:="請輸入終止頁碼",?Default:=1,?Type:=1)

For?i?=?n?To?m

[F12]?=?i

Range("A1:F12").PrintOut

Next

End?Sub

其中的引用可以自行修改,有疑問可以追問.

上一篇:smtp協議是指什麽？

下一篇:有哪些遊戲不僅好玩而且還能學到知識？