Print Macro - Double Sided

[dwilson38550m]

Hi,

I have a simple macro that opes up a file then prints the first tab called REVIEW and then the second tab called REVIEW HISTORY. The only problem is that the printer prints on 2 sheets rather than a double sided print. I have adjusted the settings on the printer but no luck. Can the macro be adjusted to do this? Also is there a setting to make this colour?

Thanks in advance

-------------------------------------------------------------------

Sub PrintMultipleSheets()
'
' printmultiplesheets Macro
'

Worksheets("Review").Range("A1:I46").PrintOut Copies:=1, Collate:=True
Worksheets("Review History").Range("A1:I50").PrintOut Copies:=1, Collate:=True


'
End Sub

 

[DataBlake]

go to page setup
when you go file > print there will be an option at the bottom for "page setup" then click options...
should find it somewhere in there. will be greyed out if your printer does not support the function.

 

[DataBlake]

and i believe you can record a macro to change these settings to see it in VBA

 

[dwilson38550m]

Thanks, do you know how to do this using vba code so that it prints both worksheets on a double side piece of paper?

 

[DataBlake]

Thanks, do you know how to do this using vba code so that it prints both worksheets on a double side piece of paper?

I don't think there is VBA syntax for it but each printer has different settings so record yourself doing it manually via developer tab in the ribbon.
my settings won't be your settings.
tl;dr i'm unsure of a specific syntax to do this that works with every printer and version of excel
mine looks like this if its any help (it has no syntax to change the double sided printing, for myself i have to do that step manually.)

   Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True

i believe you would need an actual API to control the printer options programmatically
hope this clarifies