VBA Duplex Print out

[markman235]

Hi everyone,

I have been working with this basic macro the last few days, and you guys have been amazing. I just have one last question on this.

It will print the first two sheets, but I can't get it to print them Duplex. I tried adjusting the page settings and printer setting, but this seems to override anything I change.

Any thoughts?

Thanks,

Mark

Sub EmployeeList()
Dim c As Range
For Each c In Sheet3.Range("A2", Sheet3.Cells(Rows.Count, 1).End(xlUp)) ' makes range dynamic
If c <> "" Then Sheet1.Range("A12") = c.Value
If c <> "" Then Sheet1.Range("C2") = c.Value
Sheet1.PrintOut
Sheet2.PrintOut
Next

End Sub

 

[rlv01]

What about using the printer dialog to configure the printer for duplex printing before you begin to loop through the cells?

Sub EmployeeList()
    Dim c As Range
    Application.Dialogs(xlDialogPrinterSetup).Show
    For Each c In Sheet3.Range("A2", Sheet3.Cells(Rows.Count, 1).End(xlUp))    ' makes range dynamic
        If c <> "" Then Sheet1.Range("A12") = c.Value
        If c <> "" Then Sheet1.Range("C2") = c.Value
        Sheet1.PrintOut
        Sheet2.PrintOut
    Next
End Sub