manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 346|回复: 5
打印 上一主题 下一主题

麻烦大神给改一下,我这个点击保存后想弹出打印对话框,打印区域已经锁定。

[复制链接]
跳转到指定楼层
1楼
发表于 2020-12-19 09:50 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
2学分
麻烦大神给改一下,我这个点击保存后想弹出打印对话框,打印区域已经锁定。

Sub jaofuan保存()
    Dim arr(1 To 12)
    If Range("d3") = "" Then MsgBox "车号不能为空": End
    For Each zh In Sheet1.Range("B6,b8,D3,B3,B2,D2,B4,B5,D6,D7,d8")
        k = k + 1
        arr(k) = zh
    Next
    arr(11) = arr(10) - arr(9)
    DROW = Sheet3.Cells(65536, 2).End(xlUp).Row + 1
    Sheet3.Range("A" & DROW).Resize(1, 10) = arr
    jaofuan新增
    MsgBox "保存完毕"
End Sub

最佳答案

查看完整内容

1)看不懂题意 2)是要弹哪种 With Application .Dialogs(xlDialogPrint).Show '打印 对话框 .Dialogs(xlDialogPrinterSetup).Show '打印机设置 对话框 .Dialogs(xlDialogPrintPreview).Show '打印预览 对话框 End With 3)打印区域已经锁定,是什么意思
分享到:  QQ好友和群QQ好友和群
收藏收藏
QQ图片20201219130839.png
2楼
发表于 2020-12-19 09:50 | 只看该作者
1)看不懂题意

2)是要弹哪种
    With Application
        .Dialogs(xlDialogPrint).Show            '打印 对话框
        .Dialogs(xlDialogPrinterSetup).Show     '打印机设置 对话框
        .Dialogs(xlDialogPrintPreview).Show     '打印预览 对话框
    End With

3)打印区域已经锁定,是什么意思



评分

参与人数 1学分 +3 收起 理由
梁若希 + 3 学习

查看全部评分

3楼
 楼主| 发表于 2020-12-19 13:11 | 只看该作者
爱疯 发表于 2020-12-19 10:45
1)看不懂题意

2)是要弹哪种

  是这一句,arr(k) = zh,应该怎么改?感谢

QQ图片20201219130839.png (5.2 KB, 下载次数: 1)

QQ图片20201219130839.png
4楼
发表于 2020-12-19 13:21 | 只看该作者
建议先传附件
5楼
查看详细资料  楼主| 发表于 2020-12-19 13:24 | 只看该作者
爱疯 发表于 2020-12-19 10:45
1)看不懂题意

2)是要弹哪种

感谢指点。
6楼
 楼主| 发表于 2020-12-20 12:25 | 只看该作者

麻烦大侠给看下这个,万分感谢,求助,大神,我想给派车流水中的A-I列加个修改需要输入修改密码的代码,宏可以正常...http://www.codeforacause.net/forum.php?mod=viewthread&tid=461935
(出处: manbet网)


您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-3-24 22:15 , Processed in 0.124800 second(s), 9 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表