Ir para conteúdo
Fórum Script Brasil
  • 0

Justificar Memo No Fortesreport (delphi)


Tamires

Pergunta

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...

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
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...

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

{ 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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...