用宏。同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码:
subdayin()
dimx,iasinteger
x=executeexcel4macro("get.document(50)")
msgbox"现在打印奇数页",vbokonly
fori=1toint(x/2)+1
activesheet.printoutfrom:=2*i-1,to:=2*i-1
nexti
msgbox"现在打印偶数页",vbokonly
fori=1toint(x/2)+1
activewindow.selectedsheets.printoutfrom:=2*i,to:=2*i
nexti
endsub
在此界面下直接按f5运行此宏,解决问题。