1樓:匿名使用者
**針對你的39頁內容,實現你的想法,可以調整為如下:
sub 奇偶頁分別列印()
dim i as integer, ps as integer
ps = executeexcel4macro("get.document(50)") '總頁數
msgbox "現在列印偶數頁,按確定開始."
for i = 38 to 2 step -2
activesheet.printout from:=i, to:=i
next i
msgbox "現在列印奇數頁,按確定開始."
for i = 1 to ps step 2
activesheet.printout from:=i, to:=i
next i
end sub
這個**的38指你最後一個偶數頁頁碼,本人試過,可行。打出來偶數頁後直接放入紙盒列印基數頁,然後裝訂即可,不用再分換頁碼。
2樓:雲的眼淚在飛
列印偶數頁時倒著迴圈試試:
for i=ps to 2 step -2
這裡面存在一個判斷最後一頁是奇是偶的問題,加入判斷,偶數頁時從ps開始迴圈,奇數頁時從ps-1開始迴圈
3樓:成大鍋
瞎猜一下將: msgbox "現在列印偶數頁,按確定開始."
for i = 2 to ps step 2activesheet.printout from:=i, to:=i
next i
第二項 改成:for i = ps to 2 step 2不知可否?沒印表機,沒試過。
excel2019已經啟用巨集新增信任但是還是無法啟用,各位大師求破急用啊
余余 是不是設定了excel開啟密碼?如果是的話 請按照下列步驟,可以解決!1.退出 2007年 office 程式。2.單擊 開始 單擊 執行 型別 regedit然後單擊 確定 3.找到並單擊根據以下登錄檔子項之一 hkey current user software microsoft off...
怎樣在Excel2019中使用Vlookup函式
首先介紹一下vlookup的語法結構,vlookup lookup value,table array,col index num,range lookup 表述就是vlookup 查詢值,查詢範圍,查詢列數,精確匹配或者近似匹配 使用方法通俗來講就是,vlookup是豎直查詢,即列查詢。根據查詢值...
怎樣用ecel求,怎樣用EXCEL求1 10的隨機數
excel 2003 版本 需要用 rand 函式生成 1 10的隨機數 首先介紹一下如何用rand 函式來生成隨機數 同時返回多個值時是不重複的 如下圖所示,在單元格中輸入 rand 回車後單元格即返回了一個隨機數字。rand 函式返回的隨機數字的範圍是大於0小於1。因此,也可以用它做基礎來生成給...