Make it wait

I have two macros.

The first one Prints to pdf and the second emails with the pdf attached.

But, I can't get the second one to wait until the printing is finished before starts. I have tried putting an Application.Wait between them but that freezes the printing macro.

Is there a way to test the printing or at least wait a while to give the printing time to finish?

Here is my real simple printing macro:

swbAName = ActiveWorkbook.Name
Workbooks(swbAName).Worksheets("Results").Select
MsgBox "Save name must be Box League Results"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True