请大神稍作修改命名问题

透明世界1987

大神帮忙看下，划线部分的代码修改一下，现在是运行后当前文件名称会变调，怎么修改一下 使当前文件名字不改变
Sub 按钮打印订单_Click()
PT = "C:\Users\dell\Desktop\"
    Application.DisplayAlerts = False
    print_1 = ActiveSheet.PageSetup.PrintArea
    r1 = Range(ActiveSheet.PageSetup.PrintArea).Rows.Count / ActiveSheet.PageSetup.Pages.Count
    r = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    c = Application.WorksheetFunction.RoundUp(r / r1, 0)
    ActiveSheet.PageSetup.PrintArea = "$A$1" & ":" & "$M$" & c * 25
    ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=PT & Sheets("订单模板").Range("K2").Value & Sheets("订单模板").Range("b2").Value & "采购订单.PDF"
    ActiveSheet.PageSetup.PrintArea = print_1
    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=PT & Sheets("订单模板").Range("K2").Value & Sheets("订单模板").Range("b2").Value & "采购订单.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Yalishanda30

改成savecopyas试试看

透明世界1987

Yalishanda30 发表于 2023-4-15 19:55
改成savecopyas试试看

提示这个错误

ykcbf1100

ActiveWorkbook.SaveAs PT & Sheets("订单模板").Range("K2").Value & Sheets("订单模板").Range("b2").Value & "采购订单", 52

透明世界1987

ykcbf1100 发表于 2023-4-17 09:43
ActiveWorkbook.SaveAs PT & Sheets("订单模板").Range("K2").Value & Sheets("订单模板").Range("b2").Val ...

感谢大神的回复，但是好像运行结果和我原来一样，将当前表格另存命名后，当前表格名称还是变掉了

ykcbf1100

透明世界1987 发表于 2023-4-18 07:57
感谢大神的回复，但是好像运行结果和我原来一样，将当前表格另存命名后，当前表格名称还是变掉了

没有附件不好调试。