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