Fórum Como imprimir um retangulo em volta dos dados... (Writeln) #168304

Bom dia companheiros...

Vejam se podem me ajudar....

Estou imprimindo boletos no meu sistema em folha de papel A4, sendo que no verso dos boletos estou imprimindo o destinatario

Eu gostaria de envolta dos dados do destinatario, desenhar um retangulo com as pontas arredondadas, como se fosse uma etiqueta.

Tem como fazer isso.

Eu uso o comando Writeln para imprimir os dados, vejam como está o codigo

while not dtmDados.QryBoletos.Bof do
Begin
writeln(PrintFile);
writeln(PrintFile);
writeln(PrintFile);
writeln(PrintFile);
writeln(PrintFile);
writeln(PrintFile);
writeln(PrintFile);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´Nome´).Asstring);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´Endereco´).Asstring);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´Bairro´).Asstring);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´Cidade´).Asstring+ ´ ´+DtmDados.tblEmpresas.FieldByName (´UF´).Asstring);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´CEP´).Asstring);
Writeln(PrintFile, DtmDados.qryBoletos.FieldByName (´Contatos´).Asstring);
writeln(PrintFile);
Write(PrintFile, #12) // pula para a proxima folha



Eu gostaria de colocar um contorno de preferencia com os cantos arredondados para ficar igual uma etiqueta.


Se puderem me ajudar ficarei muito grato.


Um grande abraço a todos....

Pablo
marília/SP