excel创建宏打印
保存单元格数据,并打印表格,按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
声明:本站所有文章资源内容,如无特殊说明或标注,均为采集网络资源。如若本站内容侵犯了原著者的合法权益,可联系本站删除。