Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Como imprimir imagen en visual basic 6

Estas en el tema de Como imprimir imagen en visual basic 6 en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 22/02/2012, 18:44
Avatar de elfkampher  
Fecha de Ingreso: febrero-2011
Ubicación: Queretaro, Mexico
Mensajes: 35
Antigüedad: 11 años, 5 meses
Puntos: 0
Pregunta Como imprimir imagen en visual basic 6

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
  #2 (permalink)  
Antiguo 23/02/2012, 16:10
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 12 años, 8 meses
Puntos: 53
Respuesta: Como imprimir imagen en visual basic 6

Hola, echale un vistazo a este enlace a ver si te vale como orientacion.

Imprimir Imagen con PaintPicture

Un saludo
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...
  #3 (permalink)  
Antiguo 23/02/2012, 17:04
Avatar de elfkampher  
Fecha de Ingreso: febrero-2011
Ubicación: Queretaro, Mexico
Mensajes: 35
Antigüedad: 11 años, 5 meses
Puntos: 0
Respuesta: Como imprimir imagen en visual basic 6

ya vi cual fue el problema, la primera impresión a la que había mandado tenia una impresora en red cuya maquina había cambiado de dirección IP así que no la detectaba cuando re configure la impresora funciono

Etiquetas: image, jpeg, printer
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:09.