printing 1 sheet on both sides of paper

[cranneyfarms]

I have a workbook with farm field sheets and I need to print each sheet 2 sided. Each sheet contains one page but I want to duplicate it on both sides of the paper. I have tried printing 2 copies and telling it to print on both sides but it does not work. I would create a copy of the sheet I want printed twice but I have 84 sheets? I hope this makes sense.

 

[bobsan42]

here's some code that may help:
this will create a copy of each sheet (if you don't have volatile functions like RAND then the sheets should be identical). The you can print each sheet double sided.

Sub duplicateSheets()
    Dim sh As Worksheet
    Application.Calculation = xlCalculationManual
    For Each sh In ThisWorkbook.Worksheets
        Debug.Print sh.Name,
        sh.Copy sh
        Debug.Print "copied to: "; ActiveSheet.Name
    Next sh
    Set sh = Nothing
    Application.Calculation = xlCalculationAutomatic
End Sub

THe next piece of code will delete every odd sheet (assuming you just duplicated all sheets and have not move anything around) to return to the original workbook.

Sub deleteNewSheets()
    Dim i As Long
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    With ThisWorkbook
        For i = .Worksheets.Count - 1 To 1 Step -2
            Debug.Print "deleted: "; .Worksheets(i).Name
            .Worksheets(i).Delete
        Next i
    End With
End Sub

TEST IT ON A COPY OF YOUR FILE!
To use the code follow these steps:

1. open a copy of your file in Excel
2. press ALT+F11 (this will open the VB editor)
3. from the menu select Insert -> Module
4. copy the first code and paste it into the editor
5. move the cursor in the code lines (or click in the code) and press F5 (once)
6. ALT+F11 to go back to Excel
7. confirm all worksheets are duplicated
8. print the file
9. ALT+F11 to go back to VBE
10. delete the pasted code
11. copy the second code and paste into the editor
12. move the cursor in the code lines (or click in the code) and press F5 (once)
13. delete the pasted code
14. Close VBE