Autor
Pero al cargar en el formulario me sale un error:
Código:
Error al ajustar líneas de texto en el control Etiqueta37
Estoy Usando el Código:
Código:
Dim lcstart As String
Dim lcstop As String
Dim barralargo As String
Dim lccar As String
Dim lni As Long
lcstart = Chr(40)
lcstop = Chr(41)
barralargo = 1234567890
For lni = 1 To Len(barralargo) Step 2
If Val(Mid(barralargo, lni, 2)) < 50 Then
lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 48)
Else
lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 142)
End If
Next
barralargo = lcstart + lccar + lcstop
.Sections("Sección1").Controls("Etiqueta37").Caption = "*" & barralargo & "*"
En un formulario lo Uso:
Código:
Label1.FontName = "i2of5txt"
Label1.FontSize = 72
Label1.AutoSize = True
Label1.Caption = "*" & barralargo & "*"
Y funciona correctamente, pero no se que pasa con el data report.. ayuda porfavor..
En línea
