上個教程相信大家都看過了,只設置了信息表調用問題,挺好用的吧,下面我說下如何設置宏,實現批量打印信息表。
一、設置好打印區域
二、設置好按鈕
開發工具--插入---上下頁按鈕--拖動----郵寄圖標--設置控件數值 --設置好--依次設置開始頁,結束頁。最後插入最後一個控件,名字為批量打印,看教程。
三、設置打印的宏
代碼如下
Sub 批量打印()
For i = Range("F2") To Range("F3")
Range("E1") = i
ActiveSheet.PrintOut
Next
End Sub
說明F2,F3為打印開始頁和結束頁的單元格,E1為打印的序號
右擊批量打印按鈕--指定宏--選擇”批量打印“--確定,我沒打印機,我最後保存的是pdf文件。。
怎麼樣呢,學會了嗎? 如果好用,別忘了加關注啊!有困難可以私信我啊,我一定改進!
閱讀更多 淡墨留餘香 的文章