CRYSTAL REPORTS DEFINIR POSICAO DE CAMPO VIA CODIG
ESTOU FAZENDO UM MAPA DE VIAGEM PRA UMA EMPRESA DE ONIBUS GOSTARIA DE SABER SE ALGUEM PODE ME AJUDAR A POSICIONAR ALGUNS CAMPOS VIA CODIGO, ALGUEM PODE ME AJUDAR, DESDE Jà AGRADEÇO A ATENÇÃO DE VCS.
Dê um exemplo do que precisa fazer.
Private Sub UpdatePictureObjectProperties(ByVal myReportDocument As ReportDocument, ByVal pictureObjectName As String, ByVal top As Integer, ByVal left As Integer, ByVal height As Integer, ByVal width As Integer)
Dim myReportObject As ReportObject = myReportDocument.ReportDefinition.ReportObjects.Item(pictureObjectName)
If myReportObject.Kind = myReportObject.Kind Then
Dim myPictureObject As PictureObject = myReportObject
myPictureObject.Top = top
myPictureObject.Left = left
myPictureObject.Height = height
myPictureObject.Width = width
Dim myBorder As Border = myPictureObject.Border()
myBorder.BackgroundColor = Color.White
myBorder.BorderColor = Color.Red
Dim myObjectFormat As ObjectFormat = myPictureObject.ObjectFormat
myObjectFormat.EnableCanGrow = True
myObjectFormat.EnableSuppress = False
myObjectFormat.EnableCloseAtPageBreak = True
myObjectFormat.EnableKeepTogether = True
End If
[ô]myReportDocument.Refresh()
End Sub
Dim myReportObject As ReportObject = myReportDocument.ReportDefinition.ReportObjects.Item(pictureObjectName)
If myReportObject.Kind = myReportObject.Kind Then
Dim myPictureObject As PictureObject = myReportObject
myPictureObject.Top = top
myPictureObject.Left = left
myPictureObject.Height = height
myPictureObject.Width = width
Dim myBorder As Border = myPictureObject.Border()
myBorder.BackgroundColor = Color.White
myBorder.BorderColor = Color.Red
Dim myObjectFormat As ObjectFormat = myPictureObject.ObjectFormat
myObjectFormat.EnableCanGrow = True
myObjectFormat.EnableSuppress = False
myObjectFormat.EnableCloseAtPageBreak = True
myObjectFormat.EnableKeepTogether = True
End If
[ô]myReportDocument.Refresh()
End Sub
Tópico encerrado , respostas não são mais permitidas