Fórum TextOut #287224

06/07/2005

0

Pessoal gostaria de saber como que faço para pular uma linha quando uso impressao via textout , o q acontece é q dependeno da resoluçao da impressora o espaço fica ou mto grande ou mto pequeno !!!!!


valeu pessoa espero q me ajudem


Guilherme

Guilherme

Responder

Posts

07/07/2005

Guilherme

sobe ...


calera ninguen usa printer.canvas.textout aki ????????


Responder

Gostei + 0

08/07/2005

Guilherme

sobe


Responder

Gostei + 0

09/07/2005

Beppe

Para saber o incremento que precisa dar, use Canvas.TextHeight(´Qq|´);


Responder

Gostei + 0

09/07/2005

Guilherme

vc nao poderia dar um exemplo ??????


Responder

Gostei + 0

09/07/2005

Beppe

vc nao poderia dar um exemplo ??????

Vc tem uma variável indicando a posição Y, não?

procedure ...
var
  Y: Integer;

  procedure Imprime(const S: String)
  begin
    Canvas.DrawText(...);
    Inc(Y, Canvas.TextHeight(´Qq|´));
  end;

begin
  Imprime(UmaLinha);
  Inc(Y, Canvas.TextHeight(´Qq|´));
  Imprime(OutraLinha);
end;



Responder

Gostei + 0

11/07/2005

Guilherme

deu certo !!!
agora como q faço um incremento para preencher os espaços em branco


é q tipo eu ponho

variavel1:=nome1 + stringofchar(´ ´, 35 - length(nome1))+´ ´+
nome2+stringofchar(´ ´,35 - length(nome2)));

so q isso nao da o espaço exato do tamanho da fonte !!!!!!


Responder

Gostei + 0

12/07/2005

Beppe

Use uma fonte monoespaçada, como Courier New.


Responder

Gostei + 0

12/07/2005

Guilherme

quais fontes + posso usar ???????

nao tem como usar a arial ???????




me add la no seu msn !!!


Responder

Gostei + 0

12/07/2005

Beppe

quais fontes + posso usar ???????

Vá em Tools -> Editor Options no Delphi, tem uma aba que lista fontes mono-espaçadas para se usar no editor.

nao tem como usar a arial ???????

Pode, mas ela não é mono-espaçada, vc precisará de mais código. Seria incrementar a posição X um determinado número de pxels.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar