PrintToPrinter example

Example for PrintToPrinter method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "PrintToPrinter"
    cAvax1.StartAvax()
    Call CAvax1.Add_Line(0, 5, 0, 10, 5, 0, Nothing, 1, 1, -1, -1)
    Call CAvax1.Add_Line(5, 0, 0, 5, 10, 0, Nothing, 1, 1, -1, -1)
    Call CAvax1.Add_Circle(5, 5, 0, 3, Nothing, 5, -1, -1, -1)
    Call CAvax1.Add_Text("Avax Vector ActiveX", 0, 11, 0, Nothing, 4, 1, 0, -1, -1, -1, -1, False, False, False, False, -1)
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
    Dim sPrinterName As String
    Dim avPaperSize As Avax.AvaxPaperSize
    Dim UnitMM As Single
    Dim xAvaxMin As Single
    Dim yAvaxMin As Single
    Dim xAvaxMax As Single
    Dim yAvaxMax As Single
    Dim fSelected As Boolean
    Dim fLandScape As Boolean
    Dim fExtends As Boolean
    Dim fPrinterDialogOn As Boolean
    Dim Answer As Boolean
    On Error Resume Next
    sPrinterName = "" ' Default Printer
    avPaperSize = Avax.AvaxPaperSize.epsA4
    fLandScape = True
    fExtends = True
    fPrinterDialogOn = False
    Answer = CAvax1.PrintToPrinter(sPrinterName, avPaperSize, UnitMM, xAvaxMin, yAvaxMin, xAvaxMax, yAvaxMax, fSelected, fLandScape, fExtends, fPrinterDialogOn)
End Sub