用宏解决吧。确保默认打印机正确。
同时按alt和f11进入宏界面,点菜单的插入,模块,粘贴如下代码:
SUb
test()
dim
i
as
byte
For
i
=
1
to
(activesheet.hpageBreaks.count
+
1)
*
(activesheet.vpageBreaks.count
+
1)
step
2
activesheet.pagesetup.rightfooter
=
"&p"
activesheet.PRintout
from:=i,
to:=i
next
i
msgbox
"请去打印机处反过来放入打印好的纸,然后回来按ok",
vbokonly,
"hi"
For
i
=
2
to
(activesheet.hpageBreaks.count
+
1)
*
(activesheet.vpageBreaks.count
+
1)
step
2
activesheet.pagesetup.leftfooter
=
"&p"
activesheet.PRintout
from:=i,
to:=i
next
i
end
SUb
在此界面下直接按f5,ok。
先页面设置-页眉和页脚-奇偶页不同勾打上然后再插入-页码-位置(页面底端(页脚))-对齐方式-外侧或内侧就看你的需要了.
按你的要求应该是外侧