Excel雙面打印的技巧

Excel雙面打印的技巧

在Word中，可以通過打印設(shè)置，修改打印“奇數(shù)頁”和“偶數(shù)頁”來設(shè)置雙面打印，那么在Excel中，如何實(shí)現(xiàn)Excel雙面打印呢？如果打印機(jī)不支持雙面打印，那么我們可以通過Excel VBA手動(dòng)實(shí)現(xiàn)Excel雙面打印。

首先Excel2007打開代碼編輯器，單擊“插入”菜單-“模塊”，雙擊插入的模塊，在右側(cè)的代碼窗口中輸入：Sub DoubleFacePrint()On Error Resume NextDim x, i, j As Variantx = ExecuteExcel4Macro("Get.Document(50)")MsgBox "請將紙放入打印機(jī)，開始打印奇數(shù)頁", vbOKOnlyFor i = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * i – 1, To:=2 * i – 1Next iMsgBox "請將紙放入打印機(jī)，開始打印偶數(shù)頁", vbOKOnlyFor j = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * jNext jMsgBox "Excel雙面打印完畢", vbOKOnlyEnd Sub

按F5運(yùn)行鍵，出現(xiàn)“請將紙放入打印機(jī)，開始打印奇數(shù)頁”提示時(shí)將紙張放入打印機(jī)，按“確定”按鈕開始打印奇數(shù)頁。出現(xiàn)“請將紙放入打印機(jī)，開始打印偶數(shù)頁”提示時(shí)將紙張放入打印機(jī)，按“確定”按鈕開始打印偶數(shù)頁。這樣就實(shí)現(xiàn)了Excel雙面打印。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。