Impressão com CANVAS - Duvida

Delphi

31/01/2006

Bom dia... Achei vários tópicos sobre a minha duvida... mas nenhum relacionado ao que preciso...

Meu sistema imprime NF via [b:f976aa43f1]QRPrinter[/b:f976aa43f1] e [b:f976aa43f1]CANVAS[/b:f976aa43f1], gostaria de saber como faço pra que a descrição do produto, qndo ela for maior que o tamanho da linha da NF, pule pra linha abaixo com o restante que não coube na 1ª linha. O cliente não pode abreviar a descrição, já que a NF é para a Prefeitura... Isso é apenas pra resolver temporariamente, pois vou implementar no RDPrinter.

Obrigado


Facc

Facc

Curtidas 0

Respostas

Facc

Facc

31/01/2006

Consegui resolver a questão...


GOSTEI 0
Michael

Michael

31/01/2006

Seria interessante vc postar a solução do seu problema para ajudar outros usuários que possam vir a ter a mesma dificuldade...

[]´s


GOSTEI 0
Facc

Facc

31/01/2006

Seria interessante vc postar a solução do seu problema para ajudar outros usuários que possam vir a ter a mesma dificuldade... []´s


Postando a resolução...

1º Coloque um Memo na tela onde a NF é montada.
2º Depois antes de QRPrinter.canvas.TextOut(...), vc faz o MEMO receber os itens da NF, e antes de receber o proximo item, vc limpa o MEMO.

Abaixo vai um pedaço do código do sistema

     while vcont<>vnumitens  do
     begin
       mDescProd.Clear;
       mDescProd.Lines.Text := DMDados2.TCadNotaFiscal2DescrProd.AsString;



QRPrinter.Canvas.TextOut(round(DMDados3.TCadConfigNotaColuna.Value*100),round(((DMDados3.TCadConfigNotaLinha.Value+vlinha2)*(-100))+50), Trim(mDescProd.Lines[i]) );



é um resumo do teria que ser feito


GOSTEI 0
Michael

Michael

31/01/2006

A comunidade do fórum agradece... 8)

[]´s


GOSTEI 0
POSTAR