en el reporte insertá un objeto ole, imagen mapa de bits.
Hace doble click en la sección del reporte para acceder al código fuente y
pegá esto:
Dim bmpHold As StdPicture ' object to hold the bitmap
Dim iModNum As Integer
' Set our variable to an bitmap
Set bmpHold = LoadPicture(App.Path & "\tulogo.bmp")
' Set the height and width of the Report object equal to the actual
values for
' the bitmap - the StdPicture object defaults to HiMetric, the
Report uses twips
' Set the bitmap on the Report equal to the variable
Set cOleObj.FormattedPicture = bmpHold
cOleObj.Height = bmpHold.Height * 567 / 1000 ' convert from
HiMetric to Twips
cOleObj.Width = bmpHold.Width * 567 / 1000 ' convert from
HiMetric to Twips
Espero te sirva, saludos
-----Original Message-----
From: "Prodytec S.A." <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Date: Wed, 19 Dec 2007 11:34:10 -0300
Subject: [vbusers] Imagenes en crystal report
Hola Gente:
Necesitamos agregar en todos nuestros listados (130 aprox) un campo de
imagen que sea variable para que cada uno de nuestros clientes coloque su
logotipo y quede personalizado. Nos podrán guiar con algunas opciones de
cómo hacer esto.
Desde ya Muchas Gracias.
PD: La conexión con la base de datos que es de MS SQL 2000, la realizamos
como datos Activos TTX.
Todos los puestos tienen acceso a una carpeta del servidor Ej.:
\\Servidor\Sistema\XXXX\Imagenes\*.*
Saludos.
Sebastian Moreyra
Investigación y Desarrollo
Prodytec - La Evolución en Soluciones Tecnológicas
54-11-4811-1198 / 4814-2824
[EMAIL PROTECTED]
www.prodytec.com.ar
CONFIDENCIALIDAD: Este mensaje y sus archivos agregados pueden contener
información confidencial y han sido enviados a la atención personal del
destinatario. Si Ud. lo ha recibido por error por favor comuníquenoslo
inmediatamente por la misma vía y luego elimínelo del sistema. Muchas
gracias.
CONFIDENTIALITY: This message and any attachments herein may contain
confidential information and have been sent to the personal attention of the
addressee. If you are not intended to receive this information please advise
the sender immediately by e-mail and delete this message without making any
copies. Thanks.
__________ Información de NOD32, revisión 2732 (20071219) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
