如何写双面打印代码？

hasyh2008

结构方块 发表于 2022-6-24 17:31
我来挖坟了，不知道楼主解决没有？？？

Sub 打印奇数页()
    Dim Page%, I%
    Page = ExecuteExcel4Macro("Get.Document(50)")
    For I = 1 To Page Step 2
      ActiveSheet.PrintOut from:=I, To:=I
    Next I
End Sub
Sub 逆页序打印偶数页()
    Dim Page%, I%
    Page = ExecuteExcel4Macro("Get.Document(50)")
    If Page Mod 2 = 1 Then
      MsgBox "请注意，总页数是奇数页，须取出最后一页再放入！！"
      Page = Page - 1
    End If
    For I = Page To 2 Step -2
      ActiveSheet.PrintOut from:=I, To:=I
    Next I
End Sub

thpwh

cbtaja 发表于 2016-5-29 15:54
可以在控制面板中，手工把指定打印机的首选项的双面打印属性勾选上。然后在VBA打印代码中指定使用该打 ...

全网都找了，只有你这提供了一个思路，实在是水平太菜了，搞不了，老大能不能辛苦一下帮我们解决这个难题？

虫马虫义

这个估计很难实现，我也找了好久没找到方法。我的工作表有的需要双面打印，有的单面就行，每次换工作表忘记改设置的话就按照之前的设置打印，而且我的都是批量打印，一搞错就比较麻烦。

thpwh

虫马虫义 发表于 2023-4-2 14:05
这个估计很难实现，我也找了好久没找到方法。我的工作表有的需要双面打印，有的单面就行，每次换工作表忘记 ...

是的，估计有难度，我这是好几部打印机，每次要手动设置很麻烦。通过代码自动选择打印机实现了，但单双面没有办法切换。期待版主大大及高手们能做一个实行单双面切换的代码。

lchhuo

我的解决思路是将成果表生产pdf，然后使用shell打印pdf，代码如下：
f=" "'工作簿名称
Set wb = Workbooks.Open(folder2.Path & "\" & f)
ff=""‘’pdf文件名称
'folder2.Path为文件夹路径
wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(folder2.Path & "\" & ff), quality:=xlQualityStandard '生成pdf文件
wb.Close flase
pdfpath = "C:\Program Files (x86)\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe" 'pdf阅读器地址，根据自己的文件安装位置修改
pdffilePath = folder2.Path & "\" & ff.pdf 'pdf文件绝对路径
Shell pdfpath & " /p /h " & pdffilePath, vbHide '打印pdf文件
Shell "taskkill /f /im Acrobat.exe" '关闭pdf阅读器

lchhuo

打印机支持双面打印，将打印机默认设置成双面后，word能实现双面打印，excel有时行，有时不行，excel到目前为止我还没找到解决的方法。解决excel双面打印的问题，我转了个弯，因为我发现pdf和word一样可以实现双面打印，所以我将excel生成pdf，使用shell函数打印pdf文件，完美解决excel不能双面打印的问题。如果excel有多个，配合dir进行循环，可以实现批量打印。但打印pdf的时候出现了一个小问题，如果pdf文件比较大，发送打印需要一个时间，如果不让代码等待一会的话，使用dir循环批量打印pdf文件的时候，有时候有的文件会不打印，发送完一个pdf之后，我使用wait函数让代码停留几秒，基本解决了多个pdf会有漏打的问题，但还是不能完美解决，毕竟pdf打印发送比较慢，想着excel自身能不能解决，遗憾的是一直没有找到合适的办法，使用Application.SendKeys方法，不是太稳定，毕竟使用这个方法模拟手动设置双面打印是不严谨的。不知道有那个大神解决了这个问题，望分享。