Dim Picture1 As StdPicture, X As Long
Set Picture1 = New StdPicture
Set Picture1 = LoadPicture("D:\2.jpg")
X = (Printer.Width - Printer.ScaleX(Picture1.Width, vbHimetric, Printer.ScaleMode)) \ 2
If X < 0 Then X = 0
Printer.PaintPicture Picture1, X, 0
[此贴子已经被作者于2007-4-22 2:08:07编辑过]