Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
Avelino Sampaio 24/7/2013, 14:50
Um colega de outro fórum me oferceu uma dica, de que eu não precisaria apelar para as imagens. Bastava utilizar o LINE do relatório.
Fiz então aqui um teste com o LINE e a montagem fica perfeita, simplificando barbaridade o projeto.
Veja o LINE como ficou no código.
...
Const px1 = 15 'medida de 1 pixel
Const px3 = 45 'medida de 3 pixels
PosiçãoEsquerda = 115.2 'posição a esquerda da primeira barra (567 * 0.2)
smyI25 = fncI25Encode(cod_barra)
bbar = True
For ipos = 1 To Len(smyI25)
If (bbar) Then
sgif = Mid(smyI25, ipos, 1) & "b.gif"
Else
sgif = Mid(smyI25, ipos, 1) & "s.gif"
End If
Me.Line (PosiçãoEsquerda, 14175)-(PosiçãoEsquerda + IIf(Left(sgif, 1) = "3", px3, px1), 14927), IIf(bbar = True, vbBlack, vbWhite), BF
PosiçãoEsquerda = PosiçãoEsquerda + IIf(Left(sgif, 1) = "3", px3, px1)
bbar = Not bbar
Next
Me!Endereço_b = Me!Endereço & " - " & Me!Bairro
...
Confesso que não me lembrei do LINE e acabei apelando para a solução das imagens. E olha que eu montei um artigo sobre o LINE!
Para quem quiser saber mais sobre o uso do LINE, veja este meu artigo:
http://www.usandoaccess.com.br/dicas/dica25.asp?id=1#inicio
Assim que eu atualizar o artigo e o arquivo exemplo posto aqui
Sucesso! Última edição por Avelino Sampaio em 20/9/2014, 03:10, editado 4 vez(es)
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.