Discussion :

[SpaceFrog]

Je souhaiterais avec l'instruction paintpicture exploser une image à la taille maximale d'impression de l'imprimante en conservant les proportions...

Printer.PaintPicture Pctsource.Image, 0, 0, Printer.Width, Printer.Height

Dans le code ci dessus j'ai un souci de marge car il me rogne les bords droits et bas de l'image...

[SpaceFrog]

Ben alors Bidou tu ne te risquerais même pas à une petit réponse là dessus ?

comment imprimer au format max sans se faire bouffer l'image par les marges ???

[bidou]

Je suis parisien en ce moment grenouille impatiente.
il faut utiliser l'api StretchBlt qui te permet de redimensionner ton image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Declare Function StretchBlt Lib "gdi32.dll" ( _
        ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, _
        ByVal nWidth As Long, ByVal nHeight As Long, _
        ByVal hSrcDC As Long, ByVal XSrc As Long, _
        ByVal YSrc As Long, ByVal nSrcWidth As Long, _
        ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long