Sub 打印记数_单击() Range("A1").Select '[A1]是要变单元格位置 ActiveCell.FormulaR1C1 = [A1] + 1 '1是看你要加多少,[A1]是单元格位置 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份 End Sub工具,宏,编辑器
要看你如何做销售单啦,做成什么样式啦?一般情况下,直接使用拖拽即可