как я могу узнать, если кто-то печатал из printPreview?

Question

Using printPreview As New PrintPreviewDialog()
        ' Dim x As New Printing.PrintDocument()
        ' AddHandler x.PrintPage, AddressOf PrintData
        printPreview.Document = Me.CurrentDocument
        If ShowPrinterSetup Then
            Dim x As New PrintDialog()
            x.Document = CurrentDocument
            x.ShowDialog(Anchor)
        End If
        whichPage = 0
        Return printPreview.ShowDialog(Anchor)
End Using

Пока что независимо от того, что я нажал в printpreview, showdialog возвращает отмену? Как я могу узнать, печатал ли пользователь? Я хотел бы очистить очередь печати элементов, если они действительно печатали на принтере, или спросить их, нужно ли мне это очищать, но только если они действительно что-то печатали.

Answer 1

Вы можете получить результат задания печати из события CurrentDocument EndPrint

Private WithEvents CurrentDocument As New PrintDocument

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using printPreview As New PrintPreviewDialog()
        printPreview.Document = Me.CurrentDocument
        printPreview.ShowDialog()
    End Using
End Sub

Private Sub document_EndPrint(ByVal sender As Object, ByVal e As PrintEventArgs) Handles CurrentDocument.EndPrint
    If e.PrintAction = PrintAction.PrintToPrinter Then
        MsgBox("Document Printed to Printer")
    End If
End Sub