巧用宏實(shí)現(xiàn)Excel 2003電子表格奇偶頁(yè)分別打印

摘要:Excel 2003是功能非常強(qiáng)大的電子表格編輯軟件，但常規(guī)設(shè)置中卻沒(méi)有分奇偶頁(yè)打印的功能。該文通過(guò)宏以及添加VB代碼來(lái)實(shí)現(xiàn)Excel的正反打印，并且將其添加到常用工具欄中，從根本上解決了問(wèn)題。

關(guān)鍵詞:Excel2003;奇偶打印;宏

Using Macro to Excel 2003 Spreadsheets， Respectively Odd and Even Pages Print

CHEN Ying，SONG Rong

(Jiangxi VT College of Communication， Nanchang 330013，China)

Abstracts: Excel 2003 is a powerful software program of electric sheets， but it can't print the odd page and even page respectively. The article will achieve this functiona by the application of Macro， and solve this problem by adding it to the toolbar Fundamentally.

Key words: excel 2003; double-sided printing; macro

Excel是微軟公司出品的電子表格編輯軟件，其功能強(qiáng)大，使用廣泛，常用來(lái)記錄包含海量數(shù)據(jù)的電子表格。但其打印設(shè)置中卻存在一個(gè)缺憾，即不能像Word一樣設(shè)置奇偶頁(yè)分別打印。

這點(diǎn)非常令人頭痛，因?yàn)橛泻芏鄶?shù)據(jù)表格或書(shū)本，其排版方式都是正反打印的;另外從節(jié)約的角度出發(fā)，很多公司的表格都要求雙面打印。但Excel偏偏沒(méi)有這一功能!如果表格數(shù)據(jù)不多，只有幾頁(yè)，我們可以用手工的方法一面一面打印，另外也可以將表格粘貼到Word中，然后再進(jìn)行雙面打印。但這樣效率都非常低，而且表格太大，粘貼到Word中往往無(wú)法編輯，容易死機(jī)。

有沒(méi)有什么辦法能夠解決這個(gè)問(wèn)題，答案是肯定的。常規(guī)的頁(yè)面設(shè)置中無(wú)法實(shí)現(xiàn)，我們可以利用Excel提供的宏來(lái)實(shí)現(xiàn)奇偶打印，并且將該功能以自定義按鈕的形式添加到工具欄中，這樣可以一勞永逸實(shí)現(xiàn)真正的奇偶打印。下面介紹方法:

1 第一步:錄制“個(gè)人宏工作簿”

1)打開(kāi)Excel 2003，載入要打印的Excel文件，首先錄制一個(gè)“個(gè)人宏工作簿”，后面的代碼中要引用該宏。執(zhí)行“工具-宏-錄制新宏”命令，打開(kāi)“錄制新宏”對(duì)話框，如圖1所示。名稱為“Macro1”，這里不做修改。然后選擇將其保存在“個(gè)人宏工作簿”中，確定后返回。

2)開(kāi)始錄制動(dòng)作，這里隨便做一下編輯操作，然后按“錄制”工具欄上的“停止錄制”按鈕，系統(tǒng)即可自動(dòng)添加一“個(gè)人宏工作簿”。

2 第二步:編輯宏

1)執(zhí)行“工具-宏-Visual Basic編輯器”命令，進(jìn)入Visual Basic編輯狀態(tài)，如圖2所示。在左側(cè)的“工程資源管理器”區(qū)域中，選中“VBAProject(PERNOSAL.XLS)”選項(xiàng)，右鍵單擊，執(zhí)行“插入-模塊”命令，插入一個(gè)新模塊1。

2)雙擊“模塊1”，在右邊的代碼區(qū)域輸入如下代碼。

Sub macro 1()

On Error Resume Next

x = ExecuteExcel4Macro(\"Get.Document(50)\")

For i = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1， To:=2 * i - 1

Next i

MsgBox \"請(qǐng)將打印出的紙張反向裝入紙槽中\(zhòng)"， vbOKOnly， \"打印偶數(shù)頁(yè)\"

For j = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOut From:=2 * j， To:=2 * j

Next j

End Sub

輸入完成后，關(guān)閉Visual Basic編輯窗口返回。

3 第三步:自定義“正反打印”按鈕，并添加到常用工具欄中

1)執(zhí)行“工具-自定義”命令，打開(kāi)“自定義”對(duì)話框，如圖3所示。

2)切換到“命令”標(biāo)簽下，在“類別”列表框中選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”拖到外面的工具欄中，即可添加一個(gè)按鈕。

3)不要關(guān)閉自定義“對(duì)話框”，右鍵單擊剛添加的自定義按鈕，在彈出的快捷菜單中選擇“命名”，在右側(cè)的方框中輸入按鈕名稱，這里我們輸入“雙面打印”，并選中“總是用文字”復(fù)選框。如圖4所示。

4)繼續(xù)右擊工具欄上剛才添加的“雙面打印”按鈕，在彈出的快捷菜單中，選擇“指定宏”選項(xiàng)，打開(kāi)“指定宏”對(duì)話框。選中前面編輯的宏，確定，再關(guān)閉“自定義”對(duì)話框，返回Excel編輯狀態(tài)。如圖5所示。

4 第四步:測(cè)試打印

雙面打印按鈕制作完成，接下來(lái)我們驗(yàn)證雙面打印功能是否能實(shí)現(xiàn)。啟動(dòng)Excel2003，打開(kāi)需要雙面打印的電子表格，設(shè)置好頁(yè)面之后單擊“雙面打印”按鈕，系統(tǒng)先將奇數(shù)頁(yè)打印出來(lái)，然后立即彈出提示框，等待將紙放入打印槽中。如圖6所示。

等所有奇數(shù)頁(yè)打印完之后，將其全部反向裝入打印機(jī)的紙槽中，按下“確定”按鈕，即可將偶數(shù)頁(yè)打印到另一面上，達(dá)到雙面打印的目的。

注意:打印偶數(shù)頁(yè)時(shí)，要將剛才打印過(guò)的奇數(shù)頁(yè)全部反面理一遍，頁(yè)碼小的在上，否則順序會(huì)全部顛倒。此外，還要將紙張壓平，否則容易卡紙。

參考文獻(xiàn):

[1] Excel Home.Excel 實(shí)戰(zhàn)技巧精粹[M].北京:人民郵電出版社，2007.

[2] 洪恩.用多媒體學(xué)Excel 2003[M].北京:北京洪恩，2005.