excel2003打印多張紙的設(shè)置方法
excel2003打印多張紙的設(shè)置方法
Excel中經(jīng)常需要使用到打印功能,打印功能具體該如何設(shè)置打印多張紙呢?接下來是學(xué)習(xí)啦小編為大家?guī)淼膃xcel2003打印多張紙的設(shè)置方法,供大家參考。
excel2003打印多張紙的設(shè)置方法:
打印多張紙步驟1:編輯Excel2003宏命令
打印多張紙步驟2:在Excel2003中第一次使用宏功能時(shí),需要添加“個(gè)人宏工作簿”(即PERNOSAL.XLS),然后再使用Visual Basic編輯器編輯雙面打印的宏命令。操作步驟如下所述:
打印多張紙步驟3:打開Excel2003,在Excel2003窗口中依次單擊“工具”→“宏”→“錄制新宏”菜單命令,打開“錄制新宏”對話框。在“宏名”編輯框中輸入任意名稱,然后在“保存在”下拉菜單中選中“個(gè)人宏工作簿”選項(xiàng),并單擊“確定”按鈕。
打印多張紙步驟4:在打開的錄制宏工具欄中單擊“停止錄制”按鈕,Excel2003即可自動添加“個(gè)人宏工作簿”。
打印多張紙步驟5: 在Excel2003窗口中依次單擊“工具”→“宏”→“Visual Basic編輯器”菜單命令,打開Visual Basic編輯器窗口。右鍵單擊左側(cè)“工程”窗格中的“VBAProject(PERNOSAL.XLS)”選項(xiàng),依次選擇“插入”→“模塊”菜單命令插入模塊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:輸入完成后依次單擊“文件”→“保存”菜單命令,并關(guān)閉Visual Basic編輯窗口返回Excel2003窗口。
打印多張紙步驟8:在工具欄添加“雙面打印”按鈕
打印多張紙步驟9:在Excel2003窗口依次執(zhí)行“工具”→“自定義”菜單命令,打開“自定義”對話框。在“命令”選項(xiàng)卡中的“類別”列表中選中“宏”選項(xiàng),然后將“命令”列表中的“自定義按鈕”選項(xiàng)拖曳到工具欄上的合適位置。
打印多張紙步驟10:選中剛剛添加的自定義按鈕,在“自定義對話框”中單擊“更改所選內(nèi)容”按鈕。在打開的快捷菜單中編輯“命名”編輯框,為自定義按鈕輸入名稱(如“雙面打印”),并選中“總是用文字”選項(xiàng)。
打印多張紙步驟11:保持“自定義”對話框的打開狀態(tài),然后右鍵單擊工具欄上剛添加的“雙面打印”按鈕,在打開的快捷菜單中單擊“指定宏”命令。
打印多張紙步驟12:打開“宏”對話框,選中事先編輯的宏,并單擊“確定”按鈕,如圖2008070508所示。
看了excel2003打印多張紙的設(shè)置方法還看了: