Y.... sí, es un despelote.
Si encontrás una forma mejor, avisame, por favor.
Viviana
----- Original Message -----
From: Guillermo
To: vbusers List Member
Sent: Monday, May 12, 2008 9:34 AM
Subject: [vbusers] Imagenes con Crystal Reports
Uh buenisimo, justo yo andaba buscando algo de eso...pero no hay una forma
más facil? digo, porque si tuviera mas de una imagen en el reporte y estas
estuvieran en distintas secciones tendría que hacer bastante despelote no?
Gracias, saludos,
Guillermo
Report System - Viviana escribió:
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.
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3020 (20080411) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
