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

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

關(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是微軟公司出品的電子表格編輯軟件，其功能強大，使用廣泛，常用來記錄包含海量數(shù)據(jù)的電子表格。但其打印設(shè)置中卻存在一個缺憾，即不能像Word一樣設(shè)置奇偶頁分別打印。

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

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

1 第一步:錄制“個人宏工作簿”

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

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

2 第二步:編輯宏

1)執(zhí)行“工具-宏-Visual Basic編輯器”命令，進入Visual Basic編輯狀態(tài)，如圖2所示。在左側(cè)的“工程資源管理器”區(qū)域中，選中“VBAProject(PERNOSAL.XLS)”選項，右鍵單擊，執(zhí)行“插入-模塊”命令，插入一個新模塊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 \"請將打印出的紙張反向裝入紙槽中\(zhòng)"， vbOKOnly， \"打印偶數(shù)頁\"

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í)行“工具-自定義”命令，打開“自定義”對話框，如圖3所示。

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

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

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

4 第四步:測試打印

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

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

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

參考文獻:

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

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