[MarioRainer]

Hello,

i want to print my Drawing.

i use the following code.

Option Explicit

Private Sub Form_Load()
    cAvax1.StartAvax
    Call cAvax1.Add_Line(0, 5, 0, 10, 5, 0, , 1, 3)
    Call cAvax1.Add_Line(5, 0, 0, 5, 10, 0, , 1, 3)
    Call cAvax1.Add_Circle(5, 5, 0, 3, , 5, 1)
    Call cAvax1.Add_Text("test print", 0, 11, 0, , 4)
End Sub

Private Sub Command1_Click()
    Dim sPrinterName As String
    Dim avPaperSize As 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 Local Error Resume Next
    sPrinterName = ""
    avPaperSize = epsA4
    fLandScape = True
    fExtends = True
    fPrinterDialogOn = True
    Answer = cAvax1.PrintToPrinter(sPrinterName, avPaperSize, UnitMM, xAvaxMin, yAvaxMin, xAvaxMax, yAvaxMax, fSelected, fLandScape, fExtends, fPrinterDialogOn)
End Sub

The Screen shows the Linewidth (3) on the print all lines are linewidth is the same.

Is it posible to print with the correctly linewidth properties?

Thanks for help

MarioRainer

[elias]

Use the

cAvax1.SetAvaxProperty(PixelWidth_MM_p, dPixelWidth)

property where dPixelWidth is the size of the pixel in milimeters. It means that if there is a line with width 3 the printing width will be 3 x dPixelWidth.

[MarioRainer]

Hello,

it`s great, thanks

best regards

MarioRainer