AbortPrinting example

Example for AbortPrinting method

Private Sub cAvax1_PrintingPage1(ByVal Sender As Object, ByVal e As Avax.cAvax.PrintingPageEventArgs) Handles cAvax1.PrintingPage
    Dim sMsg As String
    Dim Answer As Boolean
    sMsg = "Avax is printing page [" & Format(e.lNowPage) & "] from "
    sMsg = sMsg & "[" & Format(e.lMaxPage) & "] pages." & vbCrLf
    sMsg = sMsg & "Do you want stop printing?"
    If MsgBox(sMsg, MsgBoxStyle.YesNo Or MsgBoxStyle.Question, "") = MsgBoxResult.Yes Then
        Answer = cAvax1.AbortPrinting()
    End If
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Call cAvax1.SetAvaxProperty(Avax.AvaxProp.PrintUnit_MM_p, 20)
    Call cAvax1.Add_Line(0, 0, 0, 12, 0, 0)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    cAvax1.Command = Avax.AvaxCommand.Print_c
End Sub