How do I create a TOC with page numbers?

With the input below I create a Table of content (TOC). but the page numbers are not displayed. With which command can I achieve this?

nb1 = SelectedNotebook[];
Paginate[nb1]
MakeContents[nb1, "Book", 
 SelectedCellStyles -> {"BookChapterNumber", "BookChapterTitle", 
   "Section", "Subsection"}]