-----
Original Message -----
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 -----
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 -----
Sent:
Friday, May 09, 2008 6:06 PM
Subject:
Re: [vbusers] Imagenes con Crystal Reports
Acá tenés un ejemplo.
Viviana
-----
Original Message -----
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.
