Select Only Printed Out Cells

Here is a quick way of doing it:

NotebookFind[nb = EvaluationNotebook[], "Print", All, CellStyle];
CreateDocument[NotebookRead[nb]]

Another approach which doesn't change the selection and should be more efficient when working with huge Notebooks:

CreateDocument@NotebookRead@Cells[CellStyle -> "Print"]