FLEXGRID

RICOCARDOZO 28/06/2016 13:38:02
#464183
O que estou fazendo errado?

A linha [Ô]CADASTRO[Ô] esta centraliza , como eu quero , mais as próximas linhas [Ô]Razao e Cnp[Ô] gostaria de deixar alinhada a direita e não vai.



Private Sub carregacadastro()
Grade.Cols = 4
Grade.Rows = 10

With Grade
.Rows = 5
.FixedCols = 0
.FormatString = [Ô]^Edita|^Cadastro|Cadastro|^Fechar[Ô]
.MergeCells = flexMergeFree
.MergeRow(0) = True

.TextMatrix(1, 1) = [Ô]Razão Social[Ô]
.TextMatrix(2, 1) = [Ô]Numero CNPJ[Ô]
.CellAlignment = 7

.ColWidth(0) = 1000
.ColWidth(1) = 2000
.ColWidth(2) = 2000
.ColWidth(3) = 1000
End With
End Sub
MICHAELL 28/06/2016 14:01:10
#464186 Resposta escolhida
Você pode fazer informando a linha atual
Fiz o teste e deu certo 

  Private Sub carregacadastro()
Grade.Cols = 4
Grade.Rows = 10

With Grade

.Rows = 5
.FixedCols = 0
.FormatString = [Ô]^Edita|^Cadastro|Cadastro|^Fechar[Ô]
.MergeCells = flexMergeFree
.MergeRow(0) = True

.Col = 1
.Row = 0 [ô][ô] LINHA 0 / TOPO
.CellAlignment = flexAlignCenterCenter

.Row = 1 [ô][ô] LINHA 1
.CellAlignment = flexAlignLeftCenter [ô][ô] ESQUERDA
.TextMatrix(1, 1) = [Ô]Razão Social[Ô]


.Row = 2 [ô][ô] LINHA 2
.CellAlignment = flexAlignRightCenter [ô][ô] DIREITA
.TextMatrix(2, 1) = [Ô]Numero CNPJ[Ô]



.ColWidth(0) = 1000
.ColWidth(1) = 2000
.ColWidth(2) = 2000
.ColWidth(3) = 1000

End With
End Sub

Tópico encerrado , respostas não são mais permitidas
Voltar