Getting closer, what I would like to do is use the active document path as the destination
Code:
Sub CopyDocument()
Dim SourceFile, StrDestinationFile As String
SourceFile = "pRINTERS.docx"
StrDestinationFile = ActiveDocument.Path
FileCopy "P:\pRINTERS.docx", StrDestinationFile
End Sub