求助双面打印设置问题？急

xyddt

我的打印机可以双面打印，但是每次设置成双面时，打出来的都是单面。后来发现设置成双面后，再返回去看设置时，又变回单面了。请问，excel是不是不能打印双面？谢谢!

来生缘

应该是机器的问题吧。

xyddt

word可以打印双面，不知道为什么excel就不能打印双面了，真奇怪。以前没注意，是不是因为设置的问题呢？

xyddt

怎么没人回答...求赐教

wj2368

Sub dy() '双面打印
On Error Resume Next
    x = ExecuteExcel4Macro("Get.Document(50)")
  For i = 1 To Int(x / 2) + 1
     ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
  Next i
  MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
    For j = 1 To Int(x / 2) + 1
    ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
    Next j
    End Sub

xyddt

谢谢wj2368大师的回复，可能是我没说清楚。我的意思是，我的打印机有双面打印的功能，打印word文档时，只要选择双面打印即可。但是打印excel文档双面时，打印不了双面，您的vba程序应该是要手动换纸的。

lchhuo

打印机支持双面打印，将打印机默认设置成双面后，word能实现双面打印，excel有时行，有时不行，excel到目前为止我还没找到解决的方法。解决excel双面打印的问题，我转了个弯，因为我发现pdf和word一样可以实现双面打印，所以我将excel生成pdf，使用shell函数打印pdf文件，完美解决excel不能双面打印的问题。如果excel有多个，配合dir进行循环，可以实现批量打印。

lchhuo

但打印pdf的时候出现了一个小问题，如果pdf文件比较大，发送打印需要一个时间，如果不让代码等待一会的话，使用dir循环批量打印pdf文件的时候，有时候有的文件会不打印，发送完一个pdf之后，我使用wait函数让代码停留几秒，基本解决了多个pdf漏打的问题，但还是不能完美解决，毕竟pdf打印发送比较慢，想着excel自身能不能解决，遗憾的是一直没有找到合适的办法，使用Application.SendKeys方法，不是太稳定，毕竟使用这个方法模拟手动设置双面打印是不严谨的