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...