用宏解决吧。确保默认打印机正确。
同时按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。
转换成pdf格式,用pdf真正打印。