Ms word 如何停止保存和打印（Microsoft word）宏覆盖上一次保存？

这是宏代码，如果有帮助的话

Sub Macro1()

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
    wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
    PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    PrintZoomPaperHeight:=0
ChangeFileOpenDirectory "C:\Users\Medical\Documents\LabSlips\"
ActiveDocument.SaveAs2 FileName:="Michele H.docx", FileFormat:= _
    wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
    :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
    :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
    SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub

---

该名称在宏中硬编码。如果你不想覆盖它，它每次应该调用什么文件？我希望它被称为LabSlip。老实说，名称并不重要，我只是希望它在运行宏时不会覆盖以前的保存。