Question

我正在尝试编写一个代码，当用户单击按钮时弹出打印窗口。我正在使用以下代码：

override fun getItemViewType(position: Int): Int {
    if(dataList[position] is HeaderItem)
        return Companion.TYPE_HEADER
    return Companion.TYPE_ITEM
   }

但是，如果用户点击“取消”，则会显示错误。有没有办法修复代码，如果他们选择取消，它会退出子？

由于

Answer 1

我无法复制您的问题，但您可以在错误处理程序中处理此问题。只需检查错误编号，如果与取消无关，请通知用户。

将虚拟错误号100更改为您正在获取的错误号。

Sub printbox()
    On Error GoTo ErrorTrap

    Application.Dialogs(xlDialogPrint).Show

Leave:
    On Error GoTo 0
    Exit Sub

ErrorTrap:
    If Err.Number <> 100 Then MsgBox Err.Description, vbCritical
    Resume Leave
End Sub

Answer 2

单击取消将被解释为“vbNullString”。

我不知道你的代码是什么样的，但这是我用过的一个例子：

Sub printbox()
Dim UserInput As Variant

UserInput = InputBox("Text")


If UserInput = vbNullString Then     'Exit protocol if cancel is chosen
    Exit Sub
End If

End Sub

Answer 3

我认为这是一个简单的解决方案：

If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub

取消按钮应退出子

3 个答案: