保存单元格数据,并打印表格,按alt+F11调出VBA开发工具,添加模块。

SubPrintPass()'打印票据Sheets("打印合格证").SelectActiveWindow.SelectedSheets.PrintOut'调用打印命令打印当前页'保存数据WithSheets("记录")x=.Range("a65536").End(xlUp).Row+1'取得“记录”表中最后一个空行的行号（即写入位置）'Fori=0To2'商品信息分三行，为了简化代码，使用循环语句.Cells(x,1)=[a1]'客户.Cells(x,2)=[b1]'长度.Cells(x,3)=[c1]'日期'NextEndWith'清除数据（单据编号E2格与有公式的单元格不用清除）Range("a1").ClearContents'最后让票据的号码自动加1's=Range("e2")'收据上的当前序号在E2单元格'Range("e2")=Left(s,2)&Right("0000"&Right(s,4)+1,4)'打印完毕后让序号加一（编号的左两位是字符，右四位是数字）'MsgBox"打印并保存完毕",,"提示"EndSub

在A1单元格中回车调用模块函数

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)'Application.EnableEvents=FalseApplication.OnKey"{Enter}"IfTarget.Count=1AndTarget.Address="$A$1"ThenIfi=0Theni=2ExitSubEndIfbianhao=CStr(Range("A1").Value)ret=MsgBox("要打印"+bianhao+"合格证吗？",vbExclamation+vbYesNo,"提示")Ifret=6ThenApplication.OnKey"{Enter}","printpass"CallPrintPassEndIfElsei=0EndIf'Application.EnableEvents=TrueEndSub