Mostrar imagen mediante codigo HTML
Publicado por Compuz (1 intervención) el 25/08/2009 16:32:39
Hola, les escribo porque necesito mostrar una imagen en una vista previa de impresión, para eso utilizo HTML y la sentencia .write pero debo tener algun error en la sintaxis porque nunca encuentra la imagen a no ser que escriba toda la ruta de acceso, esto no me sirve porque el usuario puede instalar la aplicacion en otra carpeta y le daria un error, a continuación el codigo:
Public Sub InicializarReporte()
On Error GoTo VerificarError
Dim FSo, Fil2, txtfile
Dim JFile
JFile = App.Path & "CARPETA1REPORTE1.htm"
Set FSo = CreateObject("Scripting.FilesystemObject")
If FSo.FileExists(JFile) = True Then
Set Fil2 = FSo.GetFile(JFile)
Fil2.Delete
End If
Set txtfile = FSo.CreateTextFile(JFile, True)
txtfile.Write ("<HTML><HEAD><META NAME='GENERATOR' Content='Microsoft Visual Studio 6.0'></HEAD><BODY>")
txtfile.Write ("<DIV align=left><P align=left>")
txtfile.Write ("<img src="& APP.PATH & "'CARPETA1LOGO.jpg' width='764' height='157'>")
el código sigue pero no viene al caso, esta ultima linea es la que tiene el problema de sintaxis porque no encuentra la imagen que efectivamente se encuentra en la carpeta1 y se llama logo.
Espero puedan ayudarme. Saludos!
Public Sub InicializarReporte()
On Error GoTo VerificarError
Dim FSo, Fil2, txtfile
Dim JFile
JFile = App.Path & "CARPETA1REPORTE1.htm"
Set FSo = CreateObject("Scripting.FilesystemObject")
If FSo.FileExists(JFile) = True Then
Set Fil2 = FSo.GetFile(JFile)
Fil2.Delete
End If
Set txtfile = FSo.CreateTextFile(JFile, True)
txtfile.Write ("<HTML><HEAD><META NAME='GENERATOR' Content='Microsoft Visual Studio 6.0'></HEAD><BODY>")
txtfile.Write ("<DIV align=left><P align=left>")
txtfile.Write ("<img src="& APP.PATH & "'CARPETA1LOGO.jpg' width='764' height='157'>")
el código sigue pero no viene al caso, esta ultima linea es la que tiene el problema de sintaxis porque no encuentra la imagen que efectivamente se encuentra en la carpeta1 y se llama logo.
Espero puedan ayudarme. Saludos!
Valora esta pregunta
0