RE:Cambiar dirección de una imagen en cr desde vb
Publicado por
Dani (1 intervención) el 20/05/2003 13:36:49
A mi me pasó, prueba con esto:
Dim sections As CRAXDDRT.sections
Dim section As CRAXDDRT.section
Dim object As CRAXDDRT.OLEObject
Dim rpt1 As New CRAXDDRT.Report
Set rpt1 = app1.OpenReport(App.Path & "\Informes\Presupuestos.rpt")
rpt1.GroupSelectionFormula "{Cabpresupuestos.idcabpresupuestos}= '00063/03'"
Set sections = rpt1.sections
For Each section In sections
With section
If UCase(section.Name) = "SECTION5" Then
.AddPictureObject "MyPicture.JPG", 1000, 300
End If
End With
Next section
rpt1.PrintOut
Pero yo tengo otro problema. Como puedo, en vez de mandarlo a imprimir directamente a la impresora (rpt1.printout) decir que salga por pantalla