| Usuario |
Vb6 y Crystal Report 8 |
danykiurd
16 Mensaje(s)
|
| Enviado - 6/10/2004 |
| |
| La figura es que desde mi tabal de SQL 2000 por a direccionar fotogracias,,,, perfecto.. con obajetos y load picture lo puedo ver en mi formulario ... aunque ignoro como lo voy a imprimir,,por favor guru si tuvieses el codigo para enlazar archivos de typo diobujo (*.jpg,*.bmp.....) a un resporte de Crytal Report 8 ... estare muy agradecido por favor ayudenme.... |
| |
|
cperez2k
19 Mensaje(s)
|
| Enviado - 7/10/2004 |
| |
yo hago lo siguiente para subir una imagen a un reporte. Primero debes de saber en que seccion de crystal lo hiciste. en este ejemplo yo puse el objeto ole en crytal en la segunda seccion y en el programa hago lo siguiente
Dim WithEvents Section2 As CRAXDRT.Section
'Asignas el objeto seccion del reporte a la variable section2, para la variable report es otro cantar
Set Section2 = Report.Sections(2)
Despues en el evento formar del section
Private Sub Section2_Format(ByVal pFormattingInfo As Object)
Dim crxPicture As CRAXDRT.OLEObject
Set crxPicture = Report.Sections(2).ReportObjects(GetItem("Imagen2", "Picture2"))
Set crxPicture.FormattedPicture = LoadPicture(<<ruta y nombre del archivo>>)
End If
End Sub
Private Function GetItem(ByVal cNme As String, Optional cOtro As String = "") As Integer
Dim nI As Integer
For nI = 1 To Report.Sections(2).ReportObjects.Count
If cNme = Report.Sections(2).ReportObjects(nI).Name Then
GetItem = nI
ElseIf cOtro = Report.Sections(2).ReportObjects(nI).Name Then
GetItem = nI
End If
Next
End Function
a mi me funciona bien!!!!
si tienes duda me encuentras en el msn de yahoo mi nick es cfpd2k
|
| |
|
Desconocido
|
| Enviado - 20/10/2004 |
| |
Hola cperez2k, me podrias dejar este codigo pero en VB.net, lo he intentado traducir pero me da errores.
Un saludo |
| |
|
|
|
