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

梁若希

麻烦大神给改一下，我这个点击保存后想弹出打印对话框，打印区域已经锁定。 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）打印区域已经锁定，是什么意思

梁若希

爱疯 发表于 2020-12-19 10:45
1）看不懂题意

2）是要弹哪种

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

爱疯

建议先传附件

梁若希

爱疯 发表于 2020-12-19 10:45
1）看不懂题意

2）是要弹哪种

感谢指点。

梁若希

爱疯 发表于 2020-12-19 13:21
建议先传附件

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