如何写双面打印代码？

五彩缤纷 · 发表于 2010-12-21 14:07

我有一台复印机可以实现电脑双面打印，但每次打印都要先设置双面打印才可以实现自动双面打印（即不用换纸，打完第一面后自动在背面打印另一面），我想用VBA代码实现双面打印而不用人工设置，如何写代码，请各位指教！

五彩缤纷 · 发表于 2010-12-22 08:44

沉下来了，请各位指导下啊，对于我来说，这个功能非常重要呢！

weisiyu520 · 发表于 2010-12-22 15:18

Sub 双面打印()
  Dim i%, Ps%
  Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数
  MsgBox "现在打印奇数页,按确定开始."
  For i = 1 To Ps Step 2
ActiveSheet.PrintOut from:=i, To:=i
  Next i
  MsgBox "现在打印偶数页,按确定开始."
  For i = 2 To Ps Step 2
ActiveSheet.PrintOut from:=i, To:=i
  Next i
End Sub

huaimiao781 · 发表于 2010-12-22 20:48

3楼的是将奇数打印好以后把纸放回去.
然后打印偶数页 . 现在好一点的打印机都支持双面打印的.
楼主是想知道如何实现自动调用打印驱动中的双面打印功能.
而不是你这种手工把纸反过来放的方法. 呵呵!
不过你这个也很实用 :)
收下了.

五彩缤纷 · 发表于 2010-12-30 09:30

嗯，先感谢3楼提供的方法，也是好东西，但正如4楼所说的，我是想自动调用打印驱动中的双面打印功能，请有经验的先驱们指导下，万分感谢！

oceanwinder · 发表于 2016-5-29 14:29

我也想知道，谢谢。

cbtaja · 发表于 2016-5-29 15:54

可以在控制面板中，手工把指定打印机的首选项的双面打印属性勾选上。然后在VBA打印代码中指定使用该打印机。
如果仅仅这样做，可能有一个缺陷是这台打印机默认就总是双面打印了。进一步修正的办法是用VBA代码在打印前自动设置指定打印机的双面打印属性，具体可以有两种方式：①使用Windows API中有关Print的函数来完成；②或者直接用VBA修改注册表中的相关参数。

wanghx8866 · 发表于 2017-1-9 10:51

老师请问？表格双面打印如何打印到装订线的同一侧。

warton01 · 发表于 2018-10-26 09:55

感恩，正好是想要用的。感谢感谢

结构方块 · 发表于 2022-6-24 17:31

我来挖坟了，不知道楼主解决没有？？？

		自动登录	找回密码
密码			免费注册

[求助] 如何写双面打印代码？

给你个双面打印模块！