excel双面打印问题

lchhuo

打印机为FUJI XEROX ApeosPort-VII C3373，可以双面打印，打印机里边也设置了默认为“双面打印，长边装订”，但使用代码打印excel成果表时，有时是双面的，有时是单面的。解决问题的关键，我感觉应该如图2所示，但不知道怎么用vba代码修改。这个问题一直解决不了，不知道哪位大神遇到过，解决了。


补充内容 (2024-10-12 11:47):
已解决

lchhuo

是不是大家平常不大用这个功能，所以没遇到过。
我现在处理的办法是：我发现word和pdf使用代码打印，只要打印机设置为双面打印，那么就可以实现使用代码双面打印，所以我现在的处理方法是，将excel文件生成pdf文件，再使用shell函数打印pdf文件，但存在一个小的问题，那就是pdf文件根据不同的大小，发送的快慢有所不同，导致有时会漏掉一些文件不打印。比如我批量打印文件，每个文件打印四份，有些文件打印第一份的时候缺失了、未打印。因为这个问题，我在打印一个pdf之后，使用wait函数让代码等待3-5秒，但还是会出现漏打印文件的问题。想着excle成果表打印发送的速度是很快的，应该不会出现漏打印的情况，但有时双面打印、有时单面打印的问题，查了好久，一直解决不了。

ykcbf1100

AI提供的，没测试，仅供参考。。。

1. Sub SetDuplexPrinting()
   
2.     Dim ws As Worksheet
   
3.     Dim prnSettings As Printer
   
4.    
   
5.     ' 设置工作表
   
6.     Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据你的工作表名称修改
   
7.    
   
8.     ' 检查打印机是否支持双面打印
   
9.     On Error Resume Next ' 忽略错误继续执行
   
10.     Set prnSettings = ws.Printer
    
11.     On Error GoTo 0 ' 重置错误处理
    
12.    
    
13.     ' 确保打印机设置是双面打印
    
14.     With prnSettings
    
15.         .Duplex = wdDuplexDuplex
    
16.         .Binding = wdBindingLeft
    
17.         .PrintQuality = wdPrintQualityHigh
    
18.         .Print
    
19.     End With
    
20.    
    
21.     ' 更新工作表的打印机设置
    
22.     ws.PrintCommunication = True
    
23.     ws.PrinterSettings = prnSettings
    
24.     ws.PrintCommunication = False
    
25. End Sub
    
26. 
    

复制代码

lchhuo

非常感谢，但工作表没有这个属性Printer，这个属性是application的，Application.ActivePrinter '获取当前默认打印机

lchhuo

在下面这个网址找到一个思路
https://cloud.tencent.com/developer/ask/sof/105148266
代码看的比较吃力，看不太懂，但给我了一个思路，如下图

lchhuo

代码按这个思路已修改，就是将当前默认打印机先设置为其它打印机，然后再设置回来，迫使Excel采用新的设置。如果只有一个打印机，我感觉设置成空，或者设置成虚拟打印机都可以，使用几天，看看效果，到时候反馈

lchhuo

经过多天的使用，方法是正确的，问题已解决。

Lost_in_Star

lchhuo 发表于 2024-9-26 09:40
代码按这个思路已修改，就是将当前默认打印机先设置为其它打印机，然后再设置回来，迫使Excel采用新的设置 ...

可以调用打印机，选择一次即可。

lchhuo

是设置这个参数吗？