MOSTRAR UMA QUANTIDADE DE CARACTERES EM UM RELATÓRIO.

Ex: O campo nome é muito grande e não cabe na folha. Tipo queria metade do nome mais 3pontinhos. Entenderam?

Saquei, vai depender de como vc faz teus relatórios... O que vc usa?

 

ESTOU IMPRIMINDO O CONTEUDO DE UM LIST.

 

 Dim maximo As Integer
    Dim cont As Integer
    Dim X As Integer
    Printer.FontName = "Courier New"
    Printer.FontSize = "8"
    'Printer.Orientation = 2
    Printer.FontBold = True
    Printer.Print "TÍTULO - FILTRO USADO: " & vartipo
    Printer.FontBold = False
    Printer.Print ("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
    Printer.Print (" COD. NOME.                                                          CIDADE.               EQUIP.      SELB.")
    Printer.Print ("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
    Printer.Print ("")
    maximo = 54
    If cont = maximo Then
        cont = 0
        Printer.NewPage
    End If
    For X = 0 To lstchamados.ListCount - 1
        Printer.Print lstchamados.List(X)
    Next X
    Printer.Print ("")
    Printer.Print ("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
    Printer.FontBold = True
    Printer.Print ("RODAPE")
    Printer.FontBold = False
    Printer.Print ("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------")
    Printer.EndDoc

Bom, nesse caso, vc pode usar a instrução mid:

if len(conteudodocampo)>=50 then

  conteudodocampo = mid(conteudodocampo,1,47) & "..."

end if 

valew