为达到按打印之后即将打印内容保存为表格形式的代码（类似于数据库记录录入）

为达到按打印之后即将打印内容保存为表格形式的代码（类似于数据库记录录入）
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim icount As Integer
icount = Sheets("明细表").[A1].CurrentRegion.Rows.Count
Sheets("销货单").Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("$10:$10").Select
Selection.Copy
Sheets("明细表").Activate
Rows(icount + 1).Select
ActiveSheet.Paste
Sheets("销货单").Select
Application.CutCopyMode = False
MsgBox "记录明细表成功,请继续!", vbOKOnly, "确定"
End Sub