Comment: The answers did not work for me but in my case, the issue was that my page break was outside the print area. I fixed it like that

With Sheets("sheet2").PageSetup .PrintArea = "A1:BB1000" End With

Probably trivial for all you pros. And there might be a more elegant solution.