Pause Printing if printer out of paper (error)

Won't an error come up or something? And it wouldn't print if there were no paper in the printer. Try this though:

Private Sub CMDPrint_Click()
On Error Goto NP
Printer.Print data 'whatever you want to print
Printer.EndDoc
Exit Sub
NP:
Msgbox "An error has occurred while printing!", 16, "Error:  Cancelling Printing..."
Printer.KillDoc
End Sub

That's just a guess.

For more informaton, look in your Object Browser for Printer.