excel2003打印多張紙的設置方法

excel2003打印多張紙的設置方法

Excel中經常需要使用到打印功能，打印功能具體該如何設置打印多張紙呢?接下來是小編為大家帶來的excel2003打印多張紙的設置方法，供大家參考。

excel2003打印多張紙的設置方法：

打印多張紙步驟1：編輯Excel2003宏命令

打印多張紙步驟2：在Excel2003中第一次使用宏功能時，需要添加“個人宏工作簿”(即PERNOSAL.XLS)，然后再使用Visual Basic編輯器編輯雙面打印的宏命令。操作步驟如下所述：

打印多張紙步驟3：打開Excel2003，在Excel2003窗口中依次單擊“工具”→“宏”→“錄制新宏”菜單命令，打開“錄制新宏”對話框。在“宏名”編輯框中輸入任意名稱，然后在“保存在”下拉菜單中選中“個人宏工作簿”選項，并單擊“確定”按鈕。

打印多張紙步驟4：在打開的錄制宏工具欄中單擊“停止錄制”按鈕，Excel2003即可自動添加“個人宏工作簿”。

打印多張紙步驟5： 在Excel2003窗口中依次單擊“工具”→“宏”→“Visual Basic編輯器”菜單命令，打開Visual Basic編輯器窗口。右鍵單擊左側“工程”窗格中的“VBAProject(PERNOSAL.XLS)”選項，依次選擇“插入”→“模塊”菜單命令插入模塊1。

打印多張紙步驟6：雙擊“模塊1”打開代碼輸入窗口，輸入下面的代碼：

Sub dy()

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 "請將打印出的紙張反向裝入紙槽中", vbOKOnly, "打印另一面"

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

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

Next j

End Sub

打印多張紙步驟7：輸入完成后依次單擊“文件”→“保存”菜單命令，并關閉Visual Basic編輯窗口返回Excel2003窗口。

打印多張紙步驟8：在工具欄添加“雙面打印”按鈕

打印多張紙步驟9：在Excel2003窗口依次執行“工具”→“自定義”菜單命令，打開“自定義”對話框。在“命令”選項卡中的“類別”列表中選中“宏”選項，然后將“命令”列表中的“自定義按鈕”選項拖曳到工具欄上的合適位置。

打印多張紙步驟10：選中剛剛添加的自定義按鈕，在“自定義對話框”中單擊“更改所選內容”按鈕。在打開的快捷菜單中編輯“命名”編輯框，為自定義按鈕輸入名稱(如“雙面打印”)，并選中“總是用文字”選項。

打印多張紙步驟11：保持“自定義”對話框的打開狀態，然后右鍵單擊工具欄上剛添加的“雙面打印”按鈕，在打開的快捷菜單中單擊“指定宏”命令。

打印多張紙步驟12：打開“宏”對話框，選中事先編輯的宏，并單擊“確定”按鈕，如圖2008070508所示。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。