La exportación en crystal es de terror. Te sugiero usar impresoras pdf, es
mucho más práctico.
En alguna época usé los jpg en la base, pero me resultó mejor el otro método.
Saludos
Viviana
----- Original Message -----
From: Néstor Taboada
To: vbusers List Member
Sent: Saturday, May 10, 2008 10:03 AM
Subject: [vbusers] Imagenes con Crystal Reports
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.
