打印机支持双面，如何通过VBA代码设置为双面打印再发送？

vistababy

我的打印机是支持双面打印的，但每次都要在打印机设置或是打印预览窗口中设置为双面长边或双面短边。

VBA代码能直接做到吗？

Yalishanda30

Sub twosides_Printing()
    Dim Pages As Integer, even As Integer, odd As Integer
    If VBA.IsEmpty(ActiveSheet.UsedRange) Then MsgBox "当前工作表为空！", 64, "出错": Exit Sub
    ActiveWindow.View = xlPageBreakPreview
    Pages = Application.ExecuteExcel4Macro("get.document(50)")
    For odd = 1 To Int(Pages / 2)
        ActiveSheet.PrintOut form:=2 * odd - 1, To:=2 * odd - 1, copies:=1, collate:=True
    Next
    MsgBox "请将打印纸反向装入打印机中，" & Chr(10) & "开始打印另一面！", 64, "友情提示"
    For even = 1 To Int(Pages / 2)
        ActiveSheet.PrintOut from:=2 * even, To:=2 * even, copies:=1, collate:=True
    Next
    ActiveWindow.View = xlNormalView
End Sub

迪尼索斯

在控制面板，打印机里设置就OK，不要在表格打印里设置

vistababy

迪尼索斯 发表于 2023-3-24 21:44
在控制面板，打印机里设置就OK，不要在表格打印里设置

我平常都是有时单面，有时双面的，默认单面，有需求的时候就双面。我已经做好了按键检测功能，默认单面，按住Ctrl键点打印自动双面。就是缺双面的代码。到底有没有双面的代码呢？

HSIAOQIANG

vistababy 发表于 2023-3-24 22:03
我平常都是有时单面，有时双面的，默认单面，有需求的时候就双面。我已经做好了按键检测功能，默认单面， ...

好像是沒有

vistababy

Yalishanda30 发表于 2023-3-24 21:08
Sub twosides_Printing()
    Dim Pages As Integer, even As Integer, odd As Integer
    If VBA.IsEmp ...

我打印机一般都是自动双面的A3激光机，不搞手动双面。

smsn

重复请删除

vistababy

smsn 发表于 2023-3-25 09:53
提前设置为默认值

不可能。。我一般都是默认单面的。双面的绝对不行。

smsn

vistababy 发表于 2023-3-25 10:31
不可能。。我一般都是默认单面的。双面的绝对不行。

我的可以，我用的是 施乐 c3375 打印机，在上面画面设置，可以设为默认值。改好，点“保存” 就行了
vba改不到这里的设置，除非用sendkey。

vistababy

smsn 发表于 2023-3-25 20:55
我的可以，我用的是 施乐 c3375 打印机，在上面画面设置，可以设为默认值。改好，点“保存” 就行了
vba ...

但是word或excel却可以在打印预览窗口（1楼图左边）临时设为双面，同时就改了打印机的双面，关闭word或excel以后，打印机设置里面默认的还是单面。vba却做不到这个临时操作。