Viviana, Juan Carlos, muchísimas gracias por la ayuda. Viviana, tenes mucha razón, es mas practico y seguro usar alguna impresora pdf. Gracias por todo. Néstor. ----- Original Message ----- From: Juan Carlos Barrios To: vbusers List Member Sent: Sunday, May 11, 2008 6:14 PM Subject: [vbusers] Imagenes con Crystal Reports
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 <[email protected]> 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 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. ------------------------------------------------------------------------------ Yahoo! Encuentros Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros. Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration
