DATAREPORT TEXTO MEMO
Tenho um campo MEMO onde gravo um texto com mais de 3000 caracteres, esse texto carrego em um texbox sem problemas, ao mandar para o DataReport para um RptTextBox o mesmo fica em uma linha continua mostrando apenas parte do texto, ou seja, o RptTextBox não expande, alguem sabe me expicar por que?
A rotina é essa da linha salientada, o campo Descricao1 é memorando:
Private Sub Imprimir()
Set Dados = New ADODB.Recordset
If Dados.State = 1 Then Dados.Close
With Dados
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
Dim mSql As String
mSql = [Ô]SELECT Nome,Descricao1,Numero,ID FROM RelatConsultas where (Numero = [Ô] & Lb_Nr.Caption & [Ô] and ID =[Ô] & LB_ID.Caption & [Ô])[Ô]
.Source = mSql
.ActiveConnection = ConexaoFono
.Open
If Not .EOF Then
With DataReceita
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = Dados.DataSource
With .Sections([Ô]Cab[Ô]).Controls
.Item([Ô]LBNome[Ô]).Caption = Dados!Nome
.Item([Ô]Lb_Nr[Ô]).Caption = Format(Dados!Numero, [Ô]0000[Ô])
End With
With .Sections([Ô]Dados[Ô]).Controls
.Item([Ô]TxtDesc1[Ô]).DataField = Dados.Fields([Ô]Descricao1[Ô]).Name
End With
.Show 1
End With
Else
.Close
MsgBox [Ô]Não foram encontrados Registros[Ô], vbInformation, [Ô]Aviso[Ô]
End If
End With
End Sub
Private Sub Imprimir()
Set Dados = New ADODB.Recordset
If Dados.State = 1 Then Dados.Close
With Dados
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
Dim mSql As String
mSql = [Ô]SELECT Nome,Descricao1,Numero,ID FROM RelatConsultas where (Numero = [Ô] & Lb_Nr.Caption & [Ô] and ID =[Ô] & LB_ID.Caption & [Ô])[Ô]
.Source = mSql
.ActiveConnection = ConexaoFono
.Open
If Not .EOF Then
With DataReceita
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = Dados.DataSource
With .Sections([Ô]Cab[Ô]).Controls
.Item([Ô]LBNome[Ô]).Caption = Dados!Nome
.Item([Ô]Lb_Nr[Ô]).Caption = Format(Dados!Numero, [Ô]0000[Ô])
End With
With .Sections([Ô]Dados[Ô]).Controls
.Item([Ô]TxtDesc1[Ô]).DataField = Dados.Fields([Ô]Descricao1[Ô]).Name
End With
.Show 1
End With
Else
.Close
MsgBox [Ô]Não foram encontrados Registros[Ô], vbInformation, [Ô]Aviso[Ô]
End If
End With
End Sub
Cara eu uso o Data report e no modo Desiger mesmo, aquel onde vc clica e desenha os controles, crio o campo com o espaço máximo permitido a ser preenchido, caso seja menor o texto, o espaço permanece disponÃvel..
Nunca tive reclamações..
Nunca tive reclamações..
Tópico encerrado , respostas não são mais permitidas