大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

excel创建宏打印-创新互联

保存单元格数据,并打印表格,按alt+F11调出VBA开发工具,添加模块。

站在用户的角度思考问题,与客户深入沟通,找到洛川网站设计与洛川网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站设计、成都网站制作、外贸网站建设、企业官网、英文网站、手机端网站、网站推广、主机域名、虚拟空间、企业邮箱。业务覆盖洛川地区。
Sub PrintPass()
'打印票据
Sheets("打印合格证").Select
ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
'保存数据
With Sheets("记录")
x = .Range("a65536").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号(即写入位置)
'For i = 0 To 2 '商品信息分三行,为了简化代码,使用循环语句
.Cells(x, 1) = [a1] '客户
.Cells(x, 2) = [b1] '长度
.Cells(x, 3) = [c1] '日期
'Next
End With

'清除数据(单据编号E2格与有公式的单元格不用清除)
Range("a1").ClearContents
'最后让票据的号码自动加1
's = Range("e2") '收据上的当前序号在E2单元格
'Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一(编号的左两位是字符,右四位是数字)
'MsgBox "打印并保存完毕", , "提示"
End Sub

在A1单元格中回车调用模块函数


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

另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。


分享名称:excel创建宏打印-创新互联
文章分享:http://dzwzjz.com/article/dpghpd.html
在线咨询
服务热线
服务热线:028-86922220
TOP