Justificar Memo No Fortesreport (delphi)

[Tamires]

Bom dia,

Estou tentando justificar um campo Memo no FortesReport, mas não dá certo.

Ele até tem uma propriedade (Alignment: taJustify), mas ela só justifica na tela e quando imprime em impressoras jato de tinta. Quando testo numa impressora matricial, a formatação volta para "alinhado à esquerda".

Se alguém souber de algum detalhe que eu esqueci, me avise...

muito obrigada...

[Mayron Cachina]

Bom dia,

Estou tentando justificar um campo Memo no FortesReport, mas não dá certo.

Ele até tem uma propriedade (Alignment: taJustify), mas ela só justifica na tela e quando imprime em impressoras jato de tinta. Quando testo numa impressora matricial, a formatação volta para "alinhado à esquerda".

Se alguém souber de algum detalhe que eu esqueci, me avise...

muito obrigada...

O problema n estaria nas configurações da impressora matricial n???

eles são doidas pra modificar as configurações de impressao...

[Tamires]

Bom, acho que não, pois não é só aqui que tá dando esse erro. O programa foi usado em outro lugar, e tentaram imprimir também... saiu do mesmo jeito que daqui... Eu não sei direito, porque não entendo muito de configuração de impressoras...

Mesmo assim, muito obrigada pela dica...

Se mais alguém já passou por isso e talvez tenha algo pra me esclarecer eu agradeço...

Bjos

[Jhonas]

{ A impressora Epson LX-300 dispõe de um comando que justifica o texto. Este recurso é interessante, pois com ele podemos continuar a enviar os comandos de formatação de caracteres como condensado, negrito, italico, expandido, etc.

Para o exemplo abaixo:

- Coloque um botão no form;

- Altere o evento OnClick deste botão como abaixo: }

procedure TForm1.Button1Click(Sender: TObject);
const
  cJustif = #27#97#51;
  cEject = #12;
  { Tamanho da fonte }
  c10cpi = #18;
  c12cpi = #27#77;
  c17cpi = #15;
  cIExpandido = #14;
  cFExpandido = #20;
  { Formatação da fonte }
  cINegrito = #27#71;
  cFNegrito = #27#72;
  cIItalico = #27#52;
  cFItalico = #27#53;
var
  Texto: string;
  F: TextFile;
begin
  Texto := c10cpi +
  'Este e um teste para impressora Epson LX 300. ' +
  'O objetivo e imprimir texto justificado sem deixar ' +
  'de usar formatacao, tais como: ' +
  cINegrito + 'Negrito, ' + cFNegrito +
  cIItalico + 'Italico, ' + cFItalico +
  c17cpi + 'Condensado (17cpi), ' + c10cpi +
  c12cpi + '12 cpi, ' + c10cpi +
  cIExpandido + 'Expandido.' + cFExpandido +
  ' Este e apenas um exemplo, mas voce podera adapta-lo ' +
  'a sua realidade conforme a necessidade.';
  AssignFile(F, 'LPT1');
  Rewrite(F);
  try
  WriteLn(F, cJustif, Texto);
  WriteLn(F, cEject);
  finally
  CloseFile(F);
  end;
end;

Observações Modifique o codigo para voce usar quando imprimir com o FortesReport, ou seja, use os comandos de justificação e tamanho e formatação de fontes de texto antes de enviar o comando de impressão. -------------------------------------------------------------------------------------------------------------------------- Inclua na seção uses: Printers

{ Coloque este código no OnClick de um botão }

with Printer.Fonts do
  if IndexOf('Draft 10cpi') >= 0 then
  ShowMessage('A impressora possui a fonte.')
  else
  ShowMessage('A impressora NÃO possui a fonte.');

Observações

Isto pode ser útil quando queremos usar fonte da impressora quando for uma matricial ou fonte do Windows quando for uma Jato de Tinta ou Laser.