excel創(chuàng)建宏打印

保存單元格數(shù)據(jù),并打印表格,按alt+F11調(diào)出VBA開發(fā)工具,添加模塊。

Sub PrintPass()
'打印票據(jù)
Sheets("打印合格證").Select
ActiveWindow.SelectedSheets.PrintOut '調(diào)用打印命令打印當(dāng)前頁
'保存數(shù)據(jù)
With Sheets("記錄")
x = .Range("a65536").End(xlUp).Row + 1 '取得“記錄”表中最后一個空行的行號（即寫入位置）
'For i = 0 To 2 '商品信息分三行，為了簡化代碼，使用循環(huán)語句
.Cells(x, 1) = [a1] '客戶
.Cells(x, 2) = [b1] '長度
.Cells(x, 3) = [c1] '日期
'Next
End With

'清除數(shù)據(jù)（單據(jù)編號E2格與有公式的單元格不用清除）
Range("a1").ClearContents
'最后讓票據(jù)的號碼自動加1
's = Range("e2") '收據(jù)上的當(dāng)前序號在E2單元格
'Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完畢后讓序號加一（編號的左兩位是字符，右四位是數(shù)字）
'MsgBox "打印并保存完畢", , "提示"
End Sub

在A1單元格中回車調(diào)用模塊函數(shù)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Application.EnableEvents = False
    Application.OnKey "{Enter}"
    If Target.Count = 1 And Target.Address = "$A$1" Then
       If i = 0 Then
          i = 2
          Exit Sub
       End If
       
       bianhao = CStr(Range("A1").Value)
       ret = MsgBox("要打印" + bianhao + "合格證嗎？", vbExclamation + vbYesNo, "提示")
       If ret = 6 Then
            Application.OnKey "{Enter}", "printpass"
            Call PrintPass
       End If
       
    Else
       i = 0
    End If
'Application.EnableEvents = True

End Sub