打印教育储蓄证明的数据保存宏程序

Sub Macro1()
'
' Macro1 Macro
'打印教育储蓄证明
ActiveWindow.SelectedSheets.PrintOut Copies:=1

'添加到储蓄库
Sheets("储蓄库").Select
Range("D2:Q2").Select
Selection.Copy
'Range("D9").Select

该篇文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。

'Range(["D"&(2008-COUNTBLANK(htj)+9)]).Select
Range(["D"&(2008-COUNTBLANK(htj)+1)]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'清空打印表
Sheets("教育储蓄证明打印表").Select
Range("O22:T22,C24:H24,N24:S24,N26:O26,P26:X26,F30:I30,J31:K31,F32:I32,J32:N32" _
).Select
Range("J32").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("O22:T22").Select

'保存教育储蓄工作簿
ActiveWorkbook.Save

End Sub

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/19897.html