1樓：匿名使用者
這個問題只能用send key 來解決了
但是 在列印預覽視窗出現了之後，任何**都無法執行，這個問題不知道怎麼破，**都不能執行了 只能手動退出了，誒，，，
2樓：匿名使用者
最簡單的做法就是使用 錄製巨集 功能，再去檢視巨集**具體就好了
3樓：
這個問題我今天也遇到了 當然了現在已經是2023年了
我的解決辦法就是繞過這個列印預覽對列印繼續設定，可能具有侷限性，
但我的工作表中內容單面橫向一頁內列印可以巨集實現
以wps2019為例 實現如下
activewindow.view = xlpagebreakpreview
activesheet.pagesetup.orientation = xllandscape
activesheet.pagesetup.fittopagestall = 1
activesheet.pagesetup.fittopageswide = 1
4樓：匿名使用者
參考
vba怎麼設定excel列印預覽的時候**縮放在一頁？
5樓：創意木子
vba設定excel列印預覽的時候**縮放在一頁，執行**如下：
sub macro2()
with activesheet.pagesetup.zoom = false
.fittopageswide = 1
.fittopagestall = 1
end with
activewindow.selectedsheets.printpreview
end sub
6樓：匿名使用者
用下面**可以做到
sub macro2()
with activesheet.pagesetup.zoom = false
.fittopageswide = 1
.fittopagestall = 1
end with
activewindow.selectedsheets.printpreview
end sub
excel 怎麼用vba關閉當前表
7樓：zzllrr小樂
thisworkbook.close
或者activeworkbook.close
8樓：慶年工坊
thisworkbook.close'關閉本表
activeworkbook.close'關閉活動表
9樓：
workbooks.close
如何在excel中使用vba關閉**
10樓：
alt+f11,調出vba編輯器，刪除或移除有關**即可。
請問，在excel2003中，如何使用vba列印預覽，以及列印已經開啟的word文件？謝謝。
11樓：我是後我愛嫦娥
其他的你應該知道吧，建個巨集，中間輸入**
activewindow.selectedsheets.printpreview'列印預覽
activeworkbooks.printout'列印就ok了，其實很多都可以從錄製巨集學到的。
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...
excel中如何用vba將工作表sheet1重新命名，因為要重
20時13分14秒 sub rename mydate format date,409 dd mmm yy 得到美式的日期格式 mymonth split mydate,split此日期格式，找到當前的月份的英語簡寫 myname ucase mymonth 1 ucase mymonth 0 ye...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...