I did like this and it workes fine:


Printer.PaintPicture Picture1.Image, (Printer.Width - Picture1.Width) \ 2, 0
Printer.EndDoc