想做个收据等打印模板

serein119

学习。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

小妞妞

非常适合我们这种小企业，研究一下先

excelheth

你是想在下面的代码中插入一段代码，这要找高人才可以的
Private Sub CommandButton1_Click()
    '数据合规性检验
    If Not IsDate([n2] & "-" & [q2] & "-" & [s2]) Then _
        MsgBox "请正确填写日期！", vbExclamation, "提示": Exit Sub
    If [c4] = "" Then MsgBox "请填写收款内容！", vbExclamation, "提示": Exit Sub
    If Val([n8]) = 0 Then MsgBox "请填写金额！", vbExclamation, "提示": Exit Sub
    tt = MsgBox("确定要打印吗？", vbQuestion + vbOKCancel, "提示")
    If tt = vbCancel Then Exit Sub
    '加入收据内容数据保存代码
   
    '打印代码
    Sheet1.Unprotect
    [A1:T2,B4,b7,d7,f7,h7,j7,l7,n7,p7,r7,t7,b8:m8,a10:t10].NumberFormatLocal = ";;;"
    Sheet1.PrintPreview
'    Sheet1.PrintOut
    [A1:T2,B4,b7,d7,f7,h7,j7,l7,n7,p7,r7,t7,b8:m8,a10:t10].NumberFormatLocal = "G/通用格式"
    Sheet1.Protect
End Sub