hola, Nestor.
Nosotros creamos un rpt con CR 8.5 para impresion de carnets, 6 carnets por
hoja.
creamos una tabla temporal donde subimos las fotos a una tabla temporal de sql
2000 y el campo image en el rpt como cualquier campo
las imagenes jpg las guardamos en un campo image.
El inconveniente que tenemos ahora es que las imagenes se deben guardar con el
tamaño igual en que se va a imprimir ya que si se ajusta la imagen con el
cristal, pierde mucha definición el reporte resultado.
Juan Carlos Barrios
Lider de Proyectos
Axyonar
www.axyonar.com.ar
[EMAIL PROTECTED]
cel. 15 6181-1094
te (011) 6091-3030
----- Mensaje original ----
De: Report System - Viviana <[EMAIL PROTECTED]>
Para: vbusers List Member <vbusers@mug.org.ar>
Enviado: sábado 10 de mayo de 2008, 18:20:07
Asunto: [vbusers] Imagenes con Crystal Reports
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
----- 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.
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
Yahoo! Encuentros.
Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros
http://yahoo.cupidovirtual.com/servlet/NewRegistration
