如何通过VBA代码做到手动双面打印？

tangqingfu

先声明一下：
1、我的打印机不支持自动双面打印！
2、按照网上介绍的“手动双面打印”的方法测试效果，发现不能做到正反两面不能做到（1，2）、（3，4）、（5，6）……每两面为一页的形式，不知是不是自己没搞懂？
请教如何通过VBA代码做到手动双面打印？就是执行代码后先打印奇数页后，将（奇数页已打印完成的）纸张重新放入打印机，能再自动打印偶数页？希望不论奇数页是否与偶数页相同，均能自动辨别处理（均能做到（第1页，第2页）、（第3页，第4页）、（第5页，第6页）……每两面为一页的形式）。且打印完成后，能按正页序（非逆页序）浏览，而无需倒过来重新整理.



该贴已经同步到 tangqingfu的微博

wudixin96

WORD本身 就可以只打印奇数页或偶数页的。

tangqingfu

wudixin96 发表于 2012-8-4 00:04
WORD本身 就可以只打印奇数页或偶数页的。

这个我知道，我想有没有更简便的方法

tangqingfu

自己顶一下……

tangqingfu

不知能否实现，请各位关注一下……

kqbt

一般的打印机都可以“手动双面打印”，至于tang兄所说的正面（奇数页）打印完成之后，重新打印背面（偶数页）之前需要人工把纸张顺序倒叠过来的问题，可以试试：Ctrl + P  → 选项 → 双面打印选项 →  纸张背面 ，把“纸张背面”复选框 √ 上，然后再打印。

lt0314

1. Sub twopages()
   
2. Dim a(), fcell As Range, r1 As Range, r2 As Range
   
3. ActiveWindow.View = xlPageBreakPreview
   
4. 
   
5. m = ActiveSheet.HPageBreaks.Count
   
6. If m > 0 Then
   
7. ReDim a(1 To m + 1, 1 To 2)
   
8. sss = WorksheetFunction.Transpose(Range("print_area"))
   
9. parea = Split(Range("print_area").Address, ":")
   
10. nnn = UBound(sss) - 1
    
11. Set fcell = Range(parea(0))
    
12. For i = 1 To m
    
13. 
    
14. a(i, 1) = fcell.Address
    
15. Set fcell = ActiveSheet.HPageBreaks(i).Location
    
16. a(i, 2) = fcell.Offset(-1, nnn).Address
    
17. Next i
    
18. a(i, 1) = fcell.Address
    
19. a(i, 2) = parea(1)
    
20. isodd = m + 1 Mod 2
    
21. Set r1 = Range(a(1, 1), a(1, 2))
    
22. If m > 1 Then Set r2 = Range(a(2, 1), a(2, 2))
    
23. On Error Resume Next
    
24. For i = 3 To m + 1 Step 2
    
25. Set r1 = Union(r1, Range(a(i, 1), a(i, 2)))
    
26. Set r2 = Union(Range(a(i + 1, 1), a(i + 1, 2)), r2)
    
27. Next i
    
28. End If
    
29. If isodd Then Set r2 = Union([iv65536], r2)
    
30. r1.PrintPreview
    
31. MsgBox "换页"
    
32. r2.PrintPreview
    
33. 
    
34. End Sub
    
35. 
    
36. 是excel的
    

复制代码

tangqingfu

lt0314 发表于 2012-9-11 20:23

请教有没有Word的代码?

ww0000

先做个记号,下次好找