
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.-
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


0