Got it working:
Code:
Sub CopyDocument()
Dim strSourceFile, StrDestinationFile As String
strSourceFile = "P:\pRINTERS.docx"
StrDestinationFile = ActiveDocument.Path & "\pRINTERS.docx"
FileCopy strSourceFile, StrDestinationFile
End Sub
Just need to link it to the checkbox on the document now