The code would be similar. The concept used in the code is to use the Replace:=True option for that first sheet and False for the others. There are other ways depending on your print order, sheet order, sheet visibility, and such.

The main thing is that one page. Have you "Set Print Area" on each sheet that you want in the PDF?