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