Help needed on amending macro to be able to print double sided.

[ghrek]

Hi

I have this macro below and it prints too small and now want the sheet called "SHIFT SHEET" to print double sided . I need the following area printed on one side A1-J72 and on the other side print K1-S63

Also I need it set up so it fits to the full page size as in on both sides.

Sub PRINTSHEETS()
'
' PRINTSHEETS Macro
'

    ActiveSheet.Unprotect Password:="EM"
    Columns("A:A").ColumnWidth = 1.29
    Range("L71").Select
    ActiveWindow.SmallScroll Down:=-57
    Range("A1:S72").Select
    Selection.PrintOut Copies:=2, Collate:=True
    Sheets("CASH SHEET").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("SHIFT SHEET").Select
    ActiveSheet.Protect Password:="EM"
    ActiveWorkbook.Save
End Sub

Any ideas?

 

[ghrek]

Posted here too as need an answer asap

How do I print a single worksheet over 2 sides of a sheet when printing.

Hi I have posted on here but got no answer yet. https://www.mrexcel.com/board/threads/help-needed-on-amending-macro-to-be-able-to-print-double-sided.1176611/ Please see below. Any suggestions as I need to get sorted asap. Hi

www.excelforum.com