求救！！！急急急！！！

Question

Dim lngDc As Long
    lngDc = GetWindowDC(Form1.hwnd)
    BitBlt Picture1.hdc, 0, 0, Picture1.Width, Me.Height, lngDc, 0, 0, SRCCOPY    Printer.PaintPicture Picture1.Picture, 0, 0
    Printer.EndDoc
实现打印功能，怎么也打不出来
打出来的是，Picture1的画面，却不是整个画面，请各位大侠帮助

Answer 1

调整打印的高度与宽度,就是
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Picture.Width, Picture1.Picture.Height