Problem on display some G3N

Hello,

if I load with lead ocx with autofit property this file I receive a bad stretch.

With zetafax viewer doesn't happen.

This only with some file like this. Not with all the G3N file.

Someone can help me ?

thanks

Renato

Try setting the PaintSizeUseDPI property to True.

I tryet it and it works!

The only problem now is to correctly print it.

I have tryed with:

    With leadImg
            .PaintSizeUseDPI = True
            .Load CurrFile, 0, CurrPage, -1

        If .RgnHeight > .RgnWidth Then
'            Printer.Orientation = vbPRORPortrait
        Else
'            Printer.Orientation = vbPRORLandscape
             .Rotate 9000, ROTATE_RESAMPLE Or ROTATE_RESIZE, RGB(255, 255, 255)
        End If

        Printer.Print Now
        .StretchIntensity

        .SetSrcRect .RgnLeft, .RgnTop, .RgnWidth, .RgnHeight

        .Render Printer.hDC, 0, 0, 0, 0

        .SetSrcRect 0, 0, .BitmapWidth, .BitmapHeight

[...]

but still print image strecched.

Any suggestion ?

with thanks

Renato

Renato,
The Render method prints without taking the PaintSizeUseDPI property into consideration.


If you want the image's DPI values to be used, you have to calculate
the appropriate values for the fWidth and fHeight parameters of the
Render method. For an example showing how to do this, see the help
topic "Print a Real Image Size in Inches (Visual Basic)" in the OCX help file.

Thanks,

I arrived to this code that works fine:

Dim fRealWidth As Double ' Image's real width in inches
Dim fRealHeight As Double ' Image's real height in inches
Dim fPrnDPIX As Double ' Number of pixels per logical inch along the screen width
Dim fPrnDPIY As Double ' Number of pixels per logical inch along the screen height
Dim hdc As Long


[...]
    With leadPrinter
        .EnableProgressEvent = True
        .PaintSizeUseDPI = True

        fRealWidth = .BitmapWidth / .BitmapXRes
        fRealHeight = .BitmapHeight / .BitmapYRes
       
        Printer.Print Now
        .StretchIntensity
       
        If fRealHeight > fRealWidth Then
            If Printer.Orientation <> vbPRORPortrait Then
                .Rotate 9000, ROTATE_RESAMPLE Or ROTATE_RESIZE, RGB(255, 255, 255)
                .Render Printer.hdc, 1, 1, Printer.PrintQuality * fRealHeight, Printer.PrintQuality * fRealWidth
            Else
                .Render Printer.hdc, 1, 1, Printer.PrintQuality * fRealWidth, Printer.PrintQuality * fRealHeight
            End If
        Else
            If Printer.Orientation = vbPRORLandscape Then
                 .Rotate 9000, ROTATE_RESAMPLE Or ROTATE_RESIZE, RGB(255, 255, 255)
                .Render Printer.hdc, 1, 1, Printer.PrintQuality * fRealHeight, Printer.PrintQuality * fRealWidth
            Else
                .Render Printer.hdc, 1, 1, Printer.PrintQuality * fRealWidth, Printer.PrintQuality * fRealHeight
            End If
        End If

        .EnableProgressEvent = False
    End With
[...]

greetings

Renato