Viviana, el tema es que el Informe debe poder imprimir hasta 4 fotos .jpg
diferentes.
Ya lo logre grabando las mismas en una base access en campos Objeto Ole, y
perfecto. El problema es cuando lo quiero exportar desde el Crystal a otro
formato (word, pdf), la foto sale mal, con colores raros.
Pero bueno, al menos consegui generar el reporte.
Muchas Gracias.
Néstor.
----- Original Message -----
From: Report System - Viviana
To: vbusers List Member
Sent: Saturday, May 10, 2008 4:19 AM
Subject: [vbusers] Imagenes con Crystal Reports
Yo también uso rpt externos. Y le mando la ubicación desde el form de visual
sin usar el diseñador.
Uso el sub que te transcribo o el que corresponda a la sección donde puse la
imagen:
'************************************************************
' Using the FormattedPicture property of the OLEObject object,
' the VB LoadPicture Method can be used to change a picture image
' at runtime. This example changes the coupon depending on the
' customer's last year's sales
'
Private Sub Section12_Format(ByVal pFormattingInfo As Object)
Select Case fldLastYearsSales.Value
Case Is < 10000
Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup20.bmp")
Case 10001 To 20000
Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup30.bmp")
Case 20001 To 30000
Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup40.bmp")
Case Is > 30000
Set picCoupon.FormattedPicture = LoadPicture(App.Path & "\Coup50.bmp")
End Select
End Sub
Yo tengo un form genérico para todas las impresiones del sistema.
En él defino:
Public m_Report As CRAXDRT.Report ' The report to be
embedded in the viewer
Dim crxApplication As New CRAXDRT.Application
Dim WithEvents CrSecPH As CRAXDRT.Section 'dim them with events so we can
access the format event
Public Pic1 As CRAXDRT.OLEObject 'Dim an object for the ole pictures so we
can change the pic
Recorro los objetos del reporte para saber si tengo que cargar la imagen:
If m_Report.Sections("PH").Suppress = False Then
Set CrSecPH = m_Report.Sections("PH") ' set this section object
to the page header
For i = 1 To CrSecPH.ReportObjects.Count 'Loop through the report
objects and see if they are pictures
If CrSecPH.ReportObjects(i).Kind = 6 Then ' if it is a
CrOleObject then
Set Pic1 = CrSecPH.ReportObjects(i) 'Set the pic1 object to
the Ole Report object
HayLogoEnReporte = True
End If
Next i
If HayLogoEnReporte = False Then Set CrSecPH = Nothing
End If
y tengo por ejemplo el siguiente sub:
Private Sub CrSecPH_Format(ByVal pFormattingInfo As Object)
Set Pic1.FormattedPicture = LoadPicture(g_UbicacionLogo) 'changes the pic
in the Page Header
End Sub
No es perfecto, porque tengo algún caso en que pone el logo correcto en la 1º
hoja y el que usé al diseñar en las siguientes, eso me pasa porque tengo
imágenes en distintas secciones (y a veces en más de una sección en el mismo
reporte) y todavía no tuve tiempo de corregirlo.
Espero que se entienda, cualquier cosa, preguntame
Saludos
Viviana
----- Original Message -----
From: Néstor Taboada
To: vbusers List Member
Sent: Friday, May 09, 2008 6:29 PM
Subject: [vbusers] Imagenes con Crystal Reports
Viviana, el caso es el siguiente: yo tengo un reporte .rpt que es un
informe de videoendoscopias, y debe imprimir junto con el informe de texto,
algunas fotos. El tema es que las mismas son variables para cada informe, y no
se como insertarlas e indicarle al crystal que las tome.
Desde ya, muchas gracias.
Saludos.
Néstor.
----- Original Message -----
From: Report System - Viviana
To: [EMAIL PROTECTED]
Sent: Friday, May 09, 2008 6:06 PM
Subject: Re: [vbusers] Imagenes con Crystal Reports
Acá tenés un ejemplo.
Viviana
----- Original Message -----
From: Néstor Taboada
To: vbusers List Member
Sent: Friday, May 09, 2008 3:46 PM
Subject: [vbusers] Imagenes con Crystal Reports
hola a todos!
Se puede insertar una imagen .jpg (foto en este caso), en un reporte de
crystal reports 8.5 pero esta imagen la debe tomar de una carpeta, ya que el
archivo de imagen que pongo en esa carpeta varia cada vez que genero e imprimo
el informe.
o hay alguna otra variante para imprimir imágenes en forma dinámica.?
estoy usando vb6, CR 8,5 y MSAccess
Desde ya, muchas gracias.
Saludos.
Néstor.
