Visual Basic - PROBLEMAS IMPRIMIR IMAGEN OBJETO PRINTER

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

PROBLEMAS IMPRIMIR IMAGEN OBJETO PRINTER

Publicado por ACC (19 intervenciones) el 30/06/2005 04:46:01
Hola Amigos:
Quisiera saber o que me den una mano con el sgte codigo que utilizo para imprimir un logo con el objeto printer ya que me tira el error 53 en tiempo de ejecucion diciendo que no encuentra el archivo que necesito imprimir. A continuacion les describo el codigo que utilizo:
Private Sub Command1_click
Dim Imagen1 as Picture
Printer.Orientation = 1
Printer.Papersize = 9
Printer.Scalemode = 6
Set Imagen1.Picture = LoadPicture( App.Path + "\ milogo.jpg") "ACA SE PROUCE EL ERROR"
Printer.PaintPicture Imagen1,0,0
Printer.EndDoc
End Sub

Desde ya muchas gracias.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMAS IMPRIMIR IMAGEN OBJETO PRINTER

Publicado por Swap (12 intervenciones) el 30/06/2005 19:27:55
a simple vista se ve una separacion entre \ y mi logo, esto podria inducir a error
asi pues, te acosejo que uses & en vez de +

;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:SIGO CON EL MISMO PROBLEMA

Publicado por acc (19 intervenciones) el 30/06/2005 20:09:07
Hola Swap:
Ante todo gracias por contestarme; probe lo que me dijiste de cambiar el signo "+" por "&" y juntar el nombre del archivo junto a la barra pero me sigue dando el mismo error.-
Si encontras el error o otra forma de encarar el codigo te lo voy a agradecer muchisimo.-
Un abrazo ;) acc.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:SIGO CON EL MISMO PROBLEMA

Publicado por SuNcO (599 intervenciones) el 30/06/2005 21:26:29
El error (por el numero) ovbiamente no tiene nada que ver con imprimir sino con la ubiccion del archivo

Set Imagen1.Picture = LoadPicture( App.Path & "\milogo.jpg")

Checa que lleva & y el \ va pegado del archivo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PROBLEMAS IMPRIMIR IMAGEN OBJETO PRINTER

Publicado por Maniakz (10 intervenciones) el 30/06/2005 21:36:34
Private Sub Command1_click ()
Dim Imagen1 as Picture
Printer.Orientation = 1
Printer.Papersize = 9
Printer.Scalemode = 6
'Solo se agrega el & y se elimina el espacio en blanco entre la diagonal ( / ) y el nombre del archivo
Set Imagen1.Picture = LoadPicture( App.Path & "\milogo.jpg")
Printer.PaintPicture Imagen1,0,0
Printer.EndDoc
End Sub
---------------

Con eso debe jalar.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

¡¡¡¡¡MUCHISIMAS GRACIAS!!!!!

Publicado por acc (19 intervenciones) el 01/07/2005 03:54:05
AMIGOS:
GRACIAS POR SU ATENCION, YA RESOLVI EL PROBLEMA Y ESTOY A SU DISPOSICION CUANDO ME NECESITEN.-
UN ABRAZO A TODOS ;) ACC.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar