mauricio. não tem como fazer isso, porque estou mandando imprimir uma string
inteira, logo ela vai quebrar qdo chegar no final da última coluna e vai
começar a imprimir o próximo caracter(tb tenho de arrumar uma rotina que
justifique) como vou fazer pra que nessa "segunda" linha ele comece a imprimir
de onde eu quero?
----- Original Message -----
From: Maurício Chiarato Vaglieri
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 06, 2005 11:42 AM
Subject: Re: [delphi-br] ainda sobre writeln
Debora,
Controle isso colocando espaços antes do que você vai imprimir.
Abraços,
Mauricio
----- Original Message -----
From: Filipe
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, April 05, 2005 3:18 PM
Subject: Re: [delphi-br] ainda sobre writeln
Olha, no pascal tem a função gotoXY, em q vc define a linha e a coluna pra
se começar a Imprimir...
talvez no Delphi tenha algo parecido, dah uma olhada no help...
flw.
----- Original Message -----
From: "Debora" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, April 05, 2005 3:14 PM
Subject: [delphi-br] ainda sobre writeln
Gente como faço para posicionar a linha que quero imprimir em uma
determinada coluna? meu problema é que o cliente usa uma folha
personalizada
para imprimir e eu precisaria que a impressão começasse na coluna x e
terminasse na coluna y por exemplo, o código que uso é o seguinte:
IF RADIOBUTTON2.CHECKED=TRUE THEN
BEGIN
edit1.text:='PROTESTADO';DM1.CERTPOS.CLOSE; dm1.CERTPOS.SQL.Clear;
dm1.CERTPOS.SQL.Add('Select
ID,SITUACAO,PROTOCOLO,LIVRO,FOLHAS,SACADO,CPF,CGC,DTPROTESTO,VALORDOC from
TITULOS');
// dm1.QRYTIT.SQL.Add('WHERE CPF='+chr(39)+EDIT1.Text+chr(39));
dm1.CERTPOS.SQL.Add('where CGC containing '+quotedstr(edit2.text));
Dm1.CERTPOS.SQL.Add('AND
DtPROTESTO>='+chr(39)+FormatDateTime('mm/dd/yyyy',DATEEDIT1.Date)+chr(39));
Dm1.CERTPOS.SQL.Add('AND
DtPROTESTO<='+chr(39)+FormatDateTime('mm/dd/yyyy',DATEEDIT2.Date)+chr(39));
dm1.CERTPOS.SQL.Add('AND sitUACAO='+chr(39)+EDIT1.Text+chr(39));
dm1.CERTPOS.Open;
END;
//montarelatorio
cont:=1;
lt:=' Notario e Registrador do Quinto Oficio de
Justica' ;
lt1:= ' da Comarca de Sao Joao de Meriti, Estado
do Rio';
lt2:= ' de Janeiro, por nomeacão, na forma da
lei, etc.';
lT3 := ' CONSTA(M) protestado(s) em nome de '+cinegrito
+dbedit1.text + ' CPF/CNPJ:='+DM1.certpos.VALUE+cfnegrito;
lrodape:= ' A presente Certidão não contém rasuras nem em
tempo ';
l77:= ' O referido ,é verdade, do que dou fe.Nesta cidade
de
xxxxxxxxxxxxxx, Estado do Rio de Janeiro';
l78:= ' xxxxxxxxxxxxxxxxx';
assignfile(f,'lpt1');
rewrite(f);
writeln(f,lt);writeln(f,lt1);writeln(f,lt2);writeln(f,lt3);
while not dm1.CERTPOS.eof do
begin
linha:=INTTOSTR(cont)+ CINEGRITO+ ') Livro..: ' +CFNEGRITO
+dm1.CERTPOS.fieldbyname('livro').asstring + CINEGRITO+ ' Folhas..: ' +
CFNEGRITO+
dm1.CERTPOS.fieldbyname('folhas').asstring + CINEGRITO+ ' Protocolo '
+CFNEGRITO+
dm1.CERTPOS.fieldbyname('protocolo').asstring + CINEGRITO+' Protestado
em ' +CFNEGRITO +
dm1.CERTPOS.fieldbyname('dtprotesto').asstring + ',' ;
write(f,linha);
//
write(f,dm1.qrytit.fieldbyname('cod').asstring+')'+dm1.qrytit.fieldbyname('nome').asstring);
cont:=cont=1;
dm1.certpos.next;
end;
writeln(f,cjust,l78);
writeln(f,cjust,l79);writeln(f,cjust,lrodape);
closefile(f);
tentei colocar espaços no write , funciona na 1 linha mas as demais saem
errado.
grata pela ajuda
Debora da Silva Costa
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
------------------------------------------------------------------------------
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005
----------
Nenhum virus encontrado nesta mensagem.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.2 - Release Date: 05/04/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
