Printing one sided

Hi All,
I am currently using a macro to select certain sheets for printing ONLY if a value is entered specific cell in each sheet. It then launches a print dialogue box so a specific printer can be picked.

My issue is I always need all of the sheets to print ONE SIDED. When the dialogue box opens and I alter the print setting (to one sided), it only applies to the first sheet in the selected print range. Is there anything I can add to this macro so that sheets automatically print one sided? This is what I am currently using:

Sub PRINT_ACTIVE_IMMS()
    Dim i As Long, j As Long
    Dim arrMeds() As String
    ReDim arrMeds(1 To 25)
    With ActiveSheet
        For i = 1 To 25
            With Sheets("Med" & i)
                If .Range("G3").Value <> "" Then
                    j = j + 1
                    arrMeds(j) = .Name
                End If
            End With
        Next i
        ReDim Preserve arrMeds(1 To j)
        Sheets(arrMeds).Select
        Application.Dialogs(xlDialogPrint).Show
        .Select
    End With

Hi enwoznick,

The simplest way is to add a second copy of the Print Driver set for Single Sided Printing (and never change the Duplex setting).

Reference: http://superuser.com/questions/25041...r-in-windows-7
2nd Post From Irwin Hoffman
To add a second copy of a printer:
a. Go to [Control Panel] -> [Devices and Printers] and select [Add a Printer]
b. Now select [Add a local printer]
c. Select the set port of your printer in [Choose a printer port], commonly USB001 etc.
d. In [Install the printer driver] select your printers Manufacturer and Model
e. [Next]
f. In [Which version of the driver do you want to use?] select [Use the driver that is currently installed]
g. Enter a name for this new printer reference in [Type a printer name]

To rename a printer:
Control Panel > Printers > Right Click Printer to be edited > Rename


Leith Ross posted code (which I have not tested) to set the Duplex mode:
http://www.excelforum.com/excel-prog...nt-duplex.html

Please note that when setting an active Printer in Excel VBA you need the port reference such as

Application.ActivePrinter = "Canon MF5700 Series on Ne04:"

When accessing the Print Driver the port Number is not used, e.g.

sPrinter = "Canon MF5700 Series"

I hope this helps.

Lewis