出库单 打印一份 自动保存个存底

紫荆山路

就是 厂里需要 给司机打印一份单子  然后还要一个存底  

但是旺季  打印一下 另存为一下 太慢了
可以打印这个单子 的同时自动保存一个底就可以  
求求大佬了 帮帮忙

3190496160

保存一个底是什么意思？？？？？？？？？？

冰山2021

请加我  gds5057

强哥123

每次只运送一种材料吗？

强哥123

你标注下哪些格子的数据是固定的，哪些格子的数据是变动的，我可以帮你做一个可以用的。

chzsh

单击按钮后，只有选择是后才能打印并备份表格



Sub sh()
Dim y

y = MsgBox("单击“是”打印，单击“否”不打印", vbYesNo)
      '是y=6,否y=7

  If y = 6 Then
             Sheet1.PrintOut
  ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Sheet1.Range("b3") & Sheet1.Range("a5") & Format(Now(), "yyyymmddhhmmss") & ".xlsm"
    End If
   
   
End Sub



补充内容 (2023-2-9 14:17):
Sub sh()
    Dim y, sh, wb
    Application.ScreenUpdating = False
    Set sh = Sheet1
    y = MsgBox("单击“是”打印，单击“否”不打印", vbYesNo)
          '是y=6,否y=7
    If y = 6 Then
        sh.PrintOut
        sh.Copy
        Set wb = ActiveWorkbook
        wb.SaveAs Filename:=ThisWorkbook.Path & "\" & sh.Range("b3") & sh.Range("a5") & Format(Now(), "yyyymmddhhmmss") & ".xlsx"
        wb.Close
    End If
    MsgBox "打印并保存完毕！"
    Application.ScreenUpdating = True
End Sub