TABELA NO RICHTEXTBOX
Ola pessoal , tudo bem?
Estou fazendo um projeto, o qual tenho que colocar um modelo de um boleto para ser preenchido no Vb6, com dados de um Banco de dados,
estava querendo usar o richtext para gerar o modelo deste boleto, porem não to conseguindo que o mesmo fique como eu quero,
Já sei colocar as variáveis para trocar depois, minha dificuldade é criar a tabela mesmo,
Alguém pode me dizer como posso gerar está tabela?
ou como fazer para carregar um arquivo .RTF gerado no Word para o Richtext?
ou ainda outra maneira de fazer este boleto?
desde já agradeço.
Estou fazendo um projeto, o qual tenho que colocar um modelo de um boleto para ser preenchido no Vb6, com dados de um Banco de dados,
estava querendo usar o richtext para gerar o modelo deste boleto, porem não to conseguindo que o mesmo fique como eu quero,
Já sei colocar as variáveis para trocar depois, minha dificuldade é criar a tabela mesmo,
Alguém pode me dizer como posso gerar está tabela?
ou como fazer para carregar um arquivo .RTF gerado no Word para o Richtext?
ou ainda outra maneira de fazer este boleto?
desde já agradeço.
Criar tabela .... em anexo ...
With RTFtable
[ô]set the size of the table
.Columns = 3 [ô]Total de coluna
.Rows = 2 [ô]Total de linha
[ô]fill the cells
[ô]Row 1
.Cell(1, 1).Contents = [Ô]Row 1[Ô]
.Cell(1, 2).Contents = [Ô]Column2[Ô]
.Cell(1, 3).Contents = [Ô]Column3[Ô]
[ô]Row 2
.Cell(2, 1).Contents = [Ô]Row2[Ô]
.Cell(2, 2).Contents = [Ô]R2C2[Ô]
.Cell(2, 3).Contents = [Ô]R2C3[Ô]
[ô]do we want to center it on the page?
.isCentered = True
[ô]insert the table at the current cursor postion
.InsertTable RichTextBox1
End With
Molezinha não é?
[ô]set the size of the table
.Columns = 3 [ô]Total de coluna
.Rows = 2 [ô]Total de linha
[ô]fill the cells
[ô]Row 1
.Cell(1, 1).Contents = [Ô]Row 1[Ô]
.Cell(1, 2).Contents = [Ô]Column2[Ô]
.Cell(1, 3).Contents = [Ô]Column3[Ô]
[ô]Row 2
.Cell(2, 1).Contents = [Ô]Row2[Ô]
.Cell(2, 2).Contents = [Ô]R2C2[Ô]
.Cell(2, 3).Contents = [Ô]R2C3[Ô]
[ô]do we want to center it on the page?
.isCentered = True
[ô]insert the table at the current cursor postion
.InsertTable RichTextBox1
End With
Molezinha não é?
???
a cara sumiuuuu
a cara sumiuuuu
Faça seu login para responder