Como imprimir imagen en visual basic 6

[elfkampher]

Me he encontrado con la necesidad de imprimir una imagen en una aplicación de visual basic 6 pero estoy detenido por la falta de información de la clase print en la web o al menos falta de información practica.

lo que estoy haciendo hasta ahora es lo siguiente
Dim PosicionXIni As Integer
Dim PosicionYIni As Integer
Dim PosicionXFin As Integer
Dim PosicionYFin As Integer
PosicionXIni = 100
PosicionYIni = 100
Printer.PaperSize = vbPRPSLetter
Printer.Orientation = vbPRORLandscape
Printer.PrintQuality = vbPRPQHigh
If OptionContrato.Value = True Then
If ExisteArchivo(App.Path & "\Documentos\" & rsEmp.Fields("id_empleado") & "_" & TipoDocumento & "_" & numPagina & ".JPG") = True Then
PictureContrato.Picture = LoadPicture(App.Path & "\Documentos\" & rsEmp.Fields("id_empleado") & "_" & TipoDocumento & "_" & numPagina & ".JPG")
Printer.PaintPicture PictureContrato.Picture, PosicionXIni, PosicionYIni, Printer.ScaleWidth - 200, Printer.ScaleHeight - 200
End If
Else
If ExisteArchivo(App.Path & "\Documentos\" & rsEmp.Fields("id_empleado") & TipoDocumento & ".JPG") = True Then
PictureContrato.Picture = LoadPicture(App.Path & "\Documentos\" & rsEmp.Fields("id_empleado") & "_" & TipoDocumento & "_" & numPagina & ".JPG")
Printer.PaintPicture PictureContrato.Picture, PosicionXIni, PosicionYIni, Printer.ScaleWidth - 200, Printer.ScaleHeight - 200
End If
End If
Printer.EndDoc

la primera vez que ejecute el codigo me aparecio un error en la ultima linea donde dice Printer.EndDoc el error 482 detube el programa lo ejecute de nuevo y
ahora solo me marca error desde que intento usar el printer, en la linea que dice :
printer.papersize = vbPRPSLetter y me muestra el mismo error: Run-time-error '482': Printer error

si alguien conoce otros metodos para imprimir imagenes o como dar la ruta de un archivo y que esta se pueda imprimir les agradeceria mucho