macro to force double sided print

[carlos.mesa]

I have an excel spreadsheet (2007) form and I want a macro that will automatically print double sided to a network printer. Bascially, it's some macro to force the printer without the user adjusting the printer settings.

 

[mrnacar]

Try

Sub printform()
Dim WS As Worksheet
Set WS = ActiveSheet
Dim sCurrentPrinter As String
sCurrentPrinter = ActivePrinter
For i = 0 To 9
Err.Clear
On Error Resume Next
Application.ActivePrinter = "LGLDOUBLE on Ne0" & i & ":"
If Err.Number = 0 Then GoTo printnow
On Error GoTo 0
Next
On Error GoTo 0
Exit Sub
printnow:
    Dim iCopies As String
    
    iCopies = Application.InputBox("How many copies do you want to print?", Type:=2)
    
    If iCopies <> vbNullString Then
    
        WS.PrintOut Copies:=iCopies
    Else
        Exit Sub
    End If
ActivePrinter = sCurrentPrinter
End Sub