luda 因为家庭打印机不支持自动双面打印，所以word或wps字符也可以手动双面打印，但如果出现一份以上(奇数页数)，页码不一致，请改进一次在线双面打印代码优化，不支持自动双面打印机。现在，无需手动重新排列，即可完全进行手动双面打印！
在Word或WPS中，按ALT+F11进入代码区域，如下图所示。
复制粘贴的代码(包括下面的代码)并保存，然后单击右上角关闭代码界面，返回到常规文档界面！
您可以按Alt F8执行PrintDoc，如下所示：
全文代码如下：
Sub PrintDoc()
Dimpages nums%、msgtag%、I%、ipnt%、isaddblankpage as boolean
Dim MsgTopic As String
PagesNums=Ac(1).Pages.Count
If PagesNums Mod 2=0 Then
IsAddBlankPage=False
Else
IsAddBlankPage=True
End If
IPNT=GetPrtNo()
Msgtopic=' | -请将打印的纸张放回打印机入口- |' chr (13) _
-注意文件方向！-如果选择取消“CHR (13)”，则可以打印奇数页，完成打印作业！'
“If PagesNums 1 Then”页数大于1页时
For I=1到ipnt
if isaddblankpage=true then call prntblankdoc
O=True '设置偶数页的反向打印
A filename :=' '，range :=wdprintalldocument，item :=_
Wdprintdocumentcontent，copies:=1，页：=' '，页面类型3360=_
Wdprintevenpagesonly、manualduplexprint :=false、collate :=true、background _
:=false，print to file :=false，printzoomcolumn :=0，printzoomrow :=0，_
printzoompaperwidth :=0；printzoompaperheight :=0
Next I
Msgtag=msgbox (msgtopic、vbokcancel、“提示”)
If MsgTag=2 Then
O=False
MsgBox“打印作业已终止！”
Exit Sub
End If
o=False’奇数页打印，顺序打印！
A filename :=' '，range :=wdprintalldocument，item :=_
Wdprintdocumentcontent，copies:=ipnt，页面：=' '，页面类型3360=_
Wdprintoddpagesonly、manualduplexprint :=true、collate :=true、background _
:=true，print to file :=false，printzoomcolumn :=0，printzoomrow :=0，_
printzoompaperwidth :=0；printzoompaperheight :=0
当“Else”是一页时
打印‘o=False’顺序！
A filename :=' '，range :=wdprintalldocument，item :=_
Wdprintdocumentcontent，copies:=ipnt，页面：=' '，页面类型3360=_
Wdprintallpages、manualduplexprint :=true、collate :=true、background _
:=true，print to file :=false，printzoomcolumn :=0，printzoomrow :=0，_
printzoompaperwidth :=0；printzoompaperheight :=0
End If
End Sub
Function GetPrtNo()
Dim mystr
Mystr=InputBox('输入份数'，'手动双面打印'，1)
If IsNumeric(mystr)=True Then
GetPrtNo=Int(mystr)
Else
MsgBox '请输入数字！'
Call GetPrtNo
End If
End Function
Private Sub PrntBlankDoc()
Dim doc As Document
A=False
Set doc=Documen
Doc。PrintOut Copies:=1
Doc。Close False
Set doc=Nothing
A=真
End Sub
如果出现错误，请参考图片的位置格式，复制后换行格式往往不正确！
大多数代码来源于互联网，经过优化，更适合实际工作场景、入侵删除！