国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

excel中如何實現(xiàn)奇偶頁打印   

打印機屬性---輸出---打印順序可以實現(xiàn)   如果打印機不支持，沒有這個選項，就要用“宏”來實現(xiàn)：   右擊工作表標簽—查看代碼—插入—模塊—粘貼代碼—關閉VBE編輯器，回到工作表，工具—宏—宏，選擇Print_雙面，單擊執(zhí)行。.  

代碼：  

Sub Print_雙面()  

Dim pageTotal As Integer 

Dim jPage As Integer 

Dim OK   

pageTotal = Application.ExecuteExcel4Macro("get.document(50)")   

For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2 

ActiveSheet.PrintOut from:=jPage, To:=jPage 

Next   

OK = MsgBox("請把紙張裝入打印機，打印偶數(shù)頁", vbOKCancel, "雙面打印")   

If OK = vbOK Then  

For jPage = 2 To pageTotal Step 2  

ActiveSheet.PrintOut from:=jPage, To:=jPage 

Next 

End If   

End Sub