Correction: .zoom = false makes a difference. I didn't notice I'd put
..zoom = false statement twice.

Also .LeftHeader = Ref.LeftHeader and .CenterHeader = Ref.CenterHeader
(I noticed I could use &A in the reference sheet instead so
..centerheader = ref.centerheader is much better.... )

With Sheets(SelSh)
With .PageSetup
.Zoom = False
.PrintArea = Ref.PrintArea
.LeftHeader = Ref.LeftHeader
.CenterHeader = Ref.CenterHeader

and please exclude the last line .zoom = False before End with of
..pagesetup.

BTW, setting
.FitToPagesTall = ref.FitToPagesTall
.FitToPagesWide = ref.FitToPagesWide

does not result in correct pagebreaks in "other sheets".
Even if I set say, 64% in zoom option in the reference sheet hence not
selecting fittopages options, excel assigns 1 to both
ref.FitToPagesTall and ref.FitToPagesWide.