Wrong header on odd and even pages when printing workbook

[Jxe]

I have a workbook containing 8 sheets, one first page and seven for each day of the week.

Every weekday sheet has two pages, one with the header ”Morning” and one with the header ”Afternoon”, using different header on odd and even pages.

The first sheet contians only one pages without any header.

When trying to print the full workbook the first page without header counts against odd and even pages, so that the the Morning and Afternoon header gets on the wrong page. How can I avoid this?

 

[Gokhan Aycan]

Add another dummy empty page?

 

[Jxe]

Add another dummy empty page?

Does not solve the problem. I’m printing on both pages of the paper to get correct page spreads two and two. Forgot to add that to the question.

If its not possible to add an extra dummy page and hide it when printing?

 

[Gokhan Aycan]

Would setting a first page number help? Just throwing ideas here really.

 

[Jxe]

Would setting a first page number help? Just throwing ideas here really.

Tried that without success. Keep throwing ideas if there’s more

 

[Gokhan Aycan]

Does it work as intended if you hide the 1st sheet? If so, maybe a little macro to hide, print and unhide would solve your problem.

 

[Jxe]

Does it work as intended if you hide the 1st sheet? If so, maybe a little macro to hide, print and unhide would solve your problem.

Yes, if i hide the first sheet the rest prints as intended. I have no knowledge about macros in Excel. How would one like the one you suggest look like?

 

[Gokhan Aycan]

I will paste a code, but I am not sure if it would be what you want or not. I don't have a printer to test with and print to pdf involves saving a file so not the same thing?
You may start a new thread about it perhaps with the below code as a starter.

Make a copy of your original file
Save workbook as xlsm (macro enabled workbook)
Open VBA Editor (ALT + F11)
DoubleClick ThisWorkbook on the Project pane (will open a new window)
Select "Workbook" from combobox on top left of new window, and "BeforePrint" from the combobox on right of that.
Paste the code (excluding the first and last lines, they will be auto-populated when you select in the above step) and change sheet_name_here with the sheet's name you want to hide.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    With ThisWorkBook
        .Worksheets("sheet_name_here").Visible = xlSheetHidden
        Application.EnableEvents = False
        .PrintOut 'Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Application.EnableEvents = True
        .Worksheets("sheet_name_here").Visible = xlSheetVisible
    End With
    
    Cancel = True

End Sub