国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費電子書等14項超值服

開通VIP
excel奇偶頁打印
userphoto

2010.04.12

關注
 
    啟動Excel程序或打開一個Excel文件,單擊菜單工具->->錄制新宏,在彈出的錄制新宏對話框中設定新的宏名“手動雙面打印” ,將宏保存在“個人宏工作簙”中 ,單擊確定后,按停止錄制宏按鈕。按“Alt+F11”進入Microsoft Visual Basic編輯器,在編輯器中的VBAProject(PERSONAL.XLS)中找到模塊1并雙擊,然后在右側的窗口中輸入如下代碼

Sub 手動雙面打印()

   Dim Pages As Long

   Dim myBottonNum As Integer

   Dim myPrompt1 As String

   Dim myPrompt2 As String

   myPrompt1 = "在打印時發(fā)生錯誤,請檢查你的打印機設置"

   myPrompt2 = "請將出紙器中已打印好一面的紙取出并將其放回到送紙器中,然后按下""確定"",繼續(xù)打印"

   Pages = ExecuteExcel4Macro("Get.Document(50)")          '統(tǒng)計總頁數

  

   On Error Resume Next

  

   If (Pages = 0) Then         '如果為零,說明沒有可打印內容,退出程序

       MsgBox "Microsoft Excel 未發(fā)現(xiàn)任何可以打印的內容", 0 + 48

      Exit Sub

   End If

  

   If (Pages = 1) Then          '判斷是否只有一頁,如果是,只打印第一頁,然后退出

       ActiveSheet.PrintOut

       If Err.Number = 1004 Then

             MsgBox myPrompt1, 0 + 48        '提示用戶發(fā)生打印錯誤

       End If

       Exit Sub

   End If

  

   For i = 1 To Pages Step 2             '設置循環(huán),打印奇數頁

       ActiveSheet.PrintOut From:=i, To:=i  

    'ActiveSheet.PrintOut Copies:=3 From:=i, To:=i    打印3份

       If Err.Number = 1004 Then

                 MsgBox myPrompt1, 0 + 48

                  Exit Sub

       End If

   Next i

  

   myBottonNum = MsgBox(myPrompt2, 1 + 48)         '提示用戶取出紙張,確認后繼續(xù)打印

  

   If (myBottonNum = 1) Then

       For j = 2 To Pages Step 2             '打印偶數頁

              ActiveSheet.PrintOut From:=j, To:=j

       Next j

   End If

End Sub

 

    Alt+Q返回到工作表窗口,單擊菜單“工具”→“自定義”,在彈出的自定義對話框中選擇“命令”選項卡,在命令選項卡中選擇“宏”→“自定義按鈕”。 拖動自定義按鈕到菜單欄或工具欄上,右擊剛剛拖到菜單欄或工具欄上自定義按鈕,然后在“命名”后面輸入“雙面打印”,然后關閉自定義對話框。單擊按鈕,在彈出的“指定宏”對話框中選擇我們剛才創(chuàng)建的宏。

    到此,命令基本添加完畢!

    關閉并保存工作簿 。打開Execl工作簙,單擊剛創(chuàng)建的宏按鈕,程序就會自動先打印所有奇數頁,然后提示取出紙張,確認后再打印所有偶數頁,基本類似于Word的手動雙面打印。
 
 
本站僅提供存儲服務,所有內容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權內容,請點擊舉報
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
可以雙面打開Excel表格的VBA代碼
在Excel中實現(xiàn)雙面打印
生活服務
分享 收藏 導長圖 關注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權!
如果VIP功能使用有故障,
可點擊這里聯(lián)系客服!

聯(lián)系客服