Private Sub Command1_Click()
  Dim Pic As Picture, X As Single, Y As Single
  Dim Xw As Single, Yh As Single

    With Printer
        Set Pic = LoadPicture("C:\Demo.BMP")
        X = 0
        Y = 0
        Xw = 100
        Yh = 200
        Printer.PaintPicture Pic, X, Y, Xw, Yh
        Set Pic = Nothing
        Printer.EndDoc
    End With
End Sub