Boleto.net da caixa formato carnê

[edeildo 0]

Olá pessoal, estou usando a dll boleto.net para imprimir boleto da caixa, alguém pode mandar o código para imprimir o boleto no formato carnê, obrigado.

[Ivan.Teles 23]

Basta setar a propriedade: FormatoCarne = true

[edeildo 0]

Ivan, obrigado por responder, mas há um problema com o tamanho do boleto, como faço para diminuir a altura do boleto, para que caber 4 boletos numa folha A4? Pois só cabe 2 boleto e parte do terceiro boleto. Agradeço.

[edeildo 0]

esse é o código que estou usando:

Protected Function GeraBoletoCaixa() As BoletoBancario

Dim cdCnpj, cdEmpresa, cdAgencia, cdConta, cdDigito As String

Dim scCpf, scCliente, scEnd, scBairro, scCidade, scCep, scUf, Carteira As String

cdCnpj = Session("bocnpj")

cdEmpresa = Session("boempresa")

cdAgencia = Session("boagencia")

cdConta = Session("boconta")

cdDigito = Session("bodigito")

Carteira = Session("bocarteira")

scCpf = txtCPF.Text

scCliente = txtNome.Text

scEnd = txtEnd.Text

scBairro = txtBairro.Text

scCidade = txtCidade.Text

scCep = txtCep.Text

scUf = txtUF.Text

Dim vencimento As DateTime = CDate(txtVencimento.Text) 'DateTime.Now.AddDays(5)

Dim ValorBoleto As Double = FormatNumber(CDbl(txtVBoleto.Text), 2) 'FormatNumber(CDbl("200"), 2)

Dim vNossoNumero As String = txtNNumero.Text '"0123456789"

Dim c As New Cedente(cdCnpj, cdEmpresa, cdAgencia, cdConta, cdDigito)

c.Codigo = "112233"

' vencimento, valor, carteira, nossonumero, cedente

Dim b As New Boleto(vencimento, ValorBoleto, Carteira, vNossoNumero, c)

b.Sacado = New Sacado(scCpf, scCliente)

b.Sacado.Endereco.[End] = scEnd

b.Sacado.Endereco.Bairro = scBairro

b.Sacado.Endereco.Cidade = scCidade

b.Sacado.Endereco.CEP = scCep

b.Sacado.Endereco.UF = scUf

'Adiciona as instruções ao boleto

Dim tMulta, tjuros As Decimal

Dim tlimite As Integer

tMulta = Convert.ToDecimal(Session("bomulta"))

tjuros = Convert.ToDecimal(Session("botxjuros"))

tlimite = CInt(Session("bonaorecebe"))

Dim item As Instrucao_Caixa

'ImportanciaporDiaDesconto

item = New Instrucao_Caixa(DirectCast(EnumInstrucoes_Caixa.Multa, Integer), Convert.ToDecimal(tMulta))

b.Instrucoes.Add(item)

item = New Instrucao_Caixa(DirectCast(EnumInstrucoes_Caixa.JurosdeMora, Integer), Convert.ToDecimal(tjuros))

b.Instrucoes.Add(item)

item = New Instrucao_Caixa(DirectCast(EnumInstrucoes_Caixa.NaoReceberAposNDias, Integer), tlimite)

b.Instrucoes.Add(item)

Dim ed As New EspecieDocumento_Caixa()

b.EspecieDocumento = New EspecieDocumento_Caixa(ed.getCodigoEspecieByEnum(EnumEspecieDocumento_Caixa.NotaPromissoria))

b.NumeroDocumento = txtParcela.Text '"00001"

b.DataProcessamento = DateTime.Now

b.DataDocumento = DateTime.Now

Dim caixa As New BoletoBancario()

caixa.CodigoBanco = Session("bocodbanco")

caixa.Boleto = b

caixa.Boleto.Valida()

caixa.FormatoCarne = True

caixa.Boleto.LocalPagamento = "PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE"

caixa.OcultarInstrucoes = True

pnboletos.Controls.Add(caixa)

Return caixa

End Function

[Ivan.Teles 23]

Quanto ao tamanho creio que não dá!