Iderval, Um tempo atras alguém levantou a questão de justificar um texto no report builder. Segue e-mail enviado na época com uma sugestão.
Att, Rodrigo Scarano Target Sistemas http://www.targetsis.com.br/ [EMAIL PROTECTED] -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de Erasmo Enviada em: sexta-feira, 3 de fevereiro de 2006 14:30 Para: [email protected] Assunto: Re: [sqlwin] Report Builder Juliana, Segue anexo um exemplo de uma função de justificação de texto utilizando fonte monoespaçado, utilize a mesma função para mandar o texto para o Report, e utilize o mesmo tipo de fonte monoespaçada. Está em CTD 1.5.1-PTF6 (esta versão não tem opção de Justificado no Report, não sei se as mais nova possuem esta opção). Sds, Erasmo -- Erasmo Bispo de Oliveira Junior Gerente de Pesquisa e Desenvolvimento Softway - Softcomex Informática Ltda. Pabx: +55 (19) 3739.9200 Direto: +55 (19) 3739.9361 Fax: +55 (19) 3739.9240 e-mail: [EMAIL PROTECTED] web: http://www.softcomex.com.br Juliana Bianchini Nogueira wrote: > Tem como no Report Justificar um texto, pois estou fazendo a impressão de um > contrato, e preciso que as clausulas saem justificadas, e só vi opção de > alinhar a esquerda ou a direitar, se alguem souber como fazer isso por favor > me ajude. > > Aguardo > > Juliana Bianchini Nogueira > Analista de Sistemas > Grupo Carlos Lyra > Tel. (034) 3319-6421 > > > > ============================================== > Lista de Centura SQLWindows > Administrador : [EMAIL PROTECTED] > [ http://www.centuraexplorer.com ] > Para sair desta lista mande mensagem para: > [EMAIL PROTECTED] sem nada no Subject e > com o comando a seguir no corpo da msg: > "unsubscribe sqlwin" (sem as aspas) > ============================================== > >
Application Description: Centura SQLWindows/32 Standard Application Template
Outline Version - 4.0.27
Design-time Settings
.data VIEWINFO
0000: 6F00000001000000 FFFF01000D004347 5458566965775374 6174650400010000
0020: 0000000000A50000 002C000000020000 0003000000FFFFFF FFFFFFFFFFFCFFFF
0040: FFE9FFFFFFFFFFFF FF000000007C0200 004D010000010000 0000000000010000
0060: 000F4170706C6963 6174696F6E497465 6D02000000075769 6E646F7773096672
0080: 6D5F5465737465
.enddata
Outline Window State: Normal
Outline Window Location and Size
.data VIEWINFO
0000: 6600040003002D00 0000000000000000 0000B71E5D0E0500 1D00FFFF4D61696E
0020: 0000000000000000 0000000000000000 0000003B00010000 00000000000000E9
0040: 1E800A00008600FF FF496E7465726E61 6C2046756E637469 6F6E730000000000
0060: 0000000000000000 0000000000003200 0100000000000000 0000E91E800A0000
0080: DF00FFFF56617269 61626C6573000000 0000000000000000 0000000000000000
00A0: 3000010000000000 00000000F51E100D 0000F400FFFF436C 6173736573000000
00C0: 0000000000000000 0000000000000000
.enddata
.data VIEWSIZE
0000: D000
.enddata
Left: -0.013"
Top: 0.0"
Width: 8.013"
Height: 4.969"
Options Box Location
.data VIEWINFO
0000: D4180909B80B1A00
.enddata
.data VIEWSIZE
0000: 0800
.enddata
Visible? Yes
Left: 4.15"
Top: 1.885"
Width: 3.8"
Height: 2.073"
Class Editor Location
Visible? No
Left: 0.575"
Top: 0.094"
Width: 5.063"
Height: 2.719"
Tool Palette Location
Visible? No
Left: 6.388"
Top: 0.729"
Fully Qualified External References? Yes
Reject Multiple Window Instances? No
Enable Runtime Checks Of External References? Yes
Use Release 4.0 Scope Rules? No
Libraries
Global Declarations
Window Defaults
Tool Bar
Display Style? Etched
Font Name: MS Sans Serif
Font Size: 8
Font Enhancement: System Default
Text Color: System Default
Background Color: System Default
Form Window
Display Style? Etched
Font Name: MS Sans Serif
Font Size: 8
Font Enhancement: System Default
Text Color: System Default
Background Color: System Default
Dialog Box
Display Style? Etched
Font Name: MS Sans Serif
Font Size: 8
Font Enhancement: System Default
Text Color: System Default
Background Color: System Default
Top Level Table Window
Font Name: MS Sans Serif
Font Size: 8
Font Enhancement: System Default
Text Color: System Default
Background Color: System Default
Data Field
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Multiline Field
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Spin Field
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Background Text
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Pushbutton
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Radio Button
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Check Box
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Option Button
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Group Box
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Child Table Window
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
List Box
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Combo Box
Font Name: Use Parent
Font Size: Use Parent
Font Enhancement: Use Parent
Text Color: Use Parent
Background Color: Use Parent
Line
Line Color: Use Parent
Frame
Border Color: Use Parent
Background Color: 3D Face Color
Picture
Border Color: Use Parent
Background Color: Use Parent
Formats
Number: 0'%'
Number: #0
Number: ###000
Number: ###000;'($'###000')'
Date/Time: hh:mm:ss AMPM
Date/Time: M/d/yy
Date/Time: MM-dd-yy
Date/Time: dd-MMM-yyyy
Date/Time: MMM d, yyyy
Date/Time: MMM d, yyyy hh:mm AMPM
Date/Time: MMMM d, yyyy hh:mm AMPM
External Functions
Constants
.data CCDATA
0000: 3000000000000000 0000000000000000 00000000
.enddata
.data CCSIZE
0000: 1400
.enddata
System
User
String: ENTER = '
'
Resources
Variables
Internal Functions
Function: gf_GetTextJustified
Description:
Returns
Long String:
Parameters
Long String: p_ls_Texto
Number: p_n_TamLinha
Static Variables
Local variables
Long String: ls_Result
Long String: ls_Linha
Number: n_Pos
Actions
Set p_ls_Texto = SalStrTrimX(
p_ls_Texto )
If SalStrLength( p_ls_Texto ) <=
p_n_TamLinha
Return p_ls_Texto
Else
Loop
Set ls_Linha =
SalStrLeftX( p_ls_Texto, p_n_TamLinha )
If SalStrScan(
ls_Linha, ENTER ) >= 0
Set ls_Linha =
SalStrLeftX( ls_Linha, SalStrScan( ls_Linha, ENTER ) + 2 )
Else
If SalStrScan(
ls_Linha, ' ' ) != -1
If not
SalStrScan('.;:?!-=]}/',SalStrRightX( ls_Linha, 1 )) >= 0
While SalStrRightX( ls_Linha, 1 ) != ' ' and SalStrMidX( p_ls_Texto,
p_n_TamLinha, 1 ) != ' '
Set ls_Linha = SalStrLeftX( ls_Linha, SalStrLength( ls_Linha ) - 1)
Set ls_Linha = SalStrTrimX( ls_Linha )
Set n_Pos = 0
While SalStrLength( ls_Linha ) < p_n_TamLinha+1
If SalStrMidX( ls_Linha, n_Pos, 1 ) = ' '
Set ls_Linha = SalStrReplaceX( ls_Linha, n_Pos, 1, ' ' )
While SalStrMidX( ls_Linha, n_Pos, 1 ) = ' '
Set n_Pos = n_Pos + 1
Else
Set n_Pos = n_Pos + 1
If n_Pos >= SalStrLength( ls_Linha )
Set n_Pos = 0
If SalStrScan(
ls_Linha, ENTER ) >= 0
Set ls_Result =
ls_Result || ls_Linha
Else
Set ls_Result =
ls_Result || ls_Linha || ENTER
Set p_ls_Texto =
SalStrTrimX( SalStrRightX( p_ls_Texto, SalStrLength( p_ls_Texto ) -
SalStrLength( SalStrTrimX( ls_Linha ) ) ) )
If SalStrLength(
p_ls_Texto ) <= p_n_TamLinha
Set ls_Result =
ls_Result || p_ls_Texto
Break
Return ls_Result
Named Menus
Class Definitions
Default Classes
MDI Window: cBaseMDI
Form Window:
Dialog Box:
Table Window:
Quest Window:
Data Field:
Spin Field:
Multiline Field:
Pushbutton:
Radio Button:
Option Button:
Check Box:
Child Table:
Quest Child Window: cQuickDatabase
List Box:
Combo Box:
Picture:
Vertical Scroll Bar:
Horizontal Scroll Bar:
Column:
Background Text:
Group Box:
Line:
Frame:
Custom Control:
ActiveX:
Application Actions
Form Window: frm_Teste
Class:
Property Template:
Class DLL Name:
Title: Teste
Icon File:
Accesories Enabled? No
Visible? Yes
Display Settings
Display Style? Default
Visible at Design time? Yes
Automatically Created at Runtime? Yes
Initial State: Normal
Maximizable? Yes
Minimizable? Yes
System Menu? Yes
Resizable? Yes
Window Location and Size
Left: 1.925"
Top: 1.604"
Width: 13.633"
Width Editable? Yes
Height: 6.024"
Height Editable? Yes
Form Size
Width: Default
Height: Default
Number of Pages: Dynamic
Font Name: Default
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Description:
Named Menus
Menu
Tool Bar
Display Settings
Display Style? Default
Location? Top
Visible? Yes
Size: Default
Size Editable? Yes
Font Name: Default
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Contents
Contents
Multiline Field: ml_Texto
Class Child Ref Key: 0
Class ChildKey: 0
Class:
Property Template:
Class DLL Name:
Data
Maximum Data Length: Default
String Type: Long String
Editable? Yes
Display Settings
Border? Yes
Word Wrap? Yes
Vertical Scroll? Yes
Window Location and Size
Left: 0.533"
Top: 0.702"
Width: 4.55"
Width Editable? Yes
Height: 4.5"
Height Editable? Yes
Visible? Yes
Font Name: Default
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Message Actions
Multiline Field: ml_TextoJustificado
Class Child Ref Key: 0
Class ChildKey: 0
Class:
Property Template:
Class DLL Name:
Data
Maximum Data Length: Default
String Type: Long String
Editable? Yes
Display Settings
Border? Yes
Word Wrap? No
Vertical Scroll? Yes
Window Location and Size
Left: 6.833"
Top: 0.702"
Width: 6.3"
Width Editable? Yes
Height: 4.5"
Height Editable? Yes
Visible? Yes
Font Name: Fixedsys
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Message Actions
Background Text: Texto Normal
Resource Id: 23641
Class Child Ref Key: 0
Class ChildKey: 0
Class:
Window Location and Size
Left: 0.533"
Top: 0.44"
Width: 2.35"
Width Editable? Yes
Height: 0.179"
Height Editable? Yes
Visible? Yes
Justify: Left
Font Name: Default
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Background Text: Texto Justificado em 40 posições
(Fonte Monoespaçada)
Resource Id: 23642
Class Child Ref Key: 0
Class ChildKey: 0
Class:
Window Location and Size
Left: 6.833"
Top: 0.44"
Width: 5.65"
Width Editable? Yes
Height: 0.179"
Height Editable? Yes
Visible? Yes
Justify: Left
Font Name: Default
Font Size: Default
Font Enhancement: Default
Text Color: Default
Background Color: Default
Pushbutton: pb_just
Class Child Ref Key: 0
Class ChildKey: 0
Class:
Property Template:
Class DLL Name:
Title: Justifica >>
Window Location and Size
Left: 5.283"
Top: 2.452"
Width: 1.2"
Width Editable? Yes
Height: 0.298"
Height Editable? Yes
Visible? Yes
Keyboard Accelerator: (none)
Font Name: Default
Font Size: Default
Font Enhancement: Default
Picture File Name:
Picture Transparent Color: None
Image Style: Single
Text Color: Default
Background Color: Default
Message Actions
On SAM_Click
Set ml_TextoJustificado =
gf_GetTextJustified( ml_Texto, 40 )
Functions
Window Parameters
Window Variables
Message Actions
On SAM_CreateComplete
Set ml_Texto = " SÃO PAULO (Reuters) - A
inflação ao consumidor em São Paulo acelerou-se para 0,5% em janeiro, ante
0,29% em dezembro do ano passado, informou a Fundação Instituto de Pesquisas
Econômicas (Fipe) nesta sexta-feira.
A projeção média de analistas
consultados pela Reuters era de uma taxa de 0,6%, com os prognósticos oscilando
de 0,55% a 0,66%.
As principais pressões vieram
da alta dos grupos Educação, de 4,51% em janeiro, e Transportes, de 1,1%.
Esses preços estão subindo
devido a um reajuste sazonal de mensalidades e materiais escolares e ao aumento
do álcool combustível nas distribuidoras.
O grupo Alimentação, por outro
lado, teve queda de preços, de 0,21%.
O IPC mede a variação dos
preços no município de São Paulo de famílias com renda até 20 salários mínimos."
Call SalSendMsg( pb_just, SAM_Click, 0, 0 )
