Forçar quebra de página no Rich Edit
Gostaria de saber como imprimir em Rich edit sendo que quebre a pagina quando for necessario, estou usando o seguinte código:
procedure TFrmGer.ImpStrings(Strings: TStrings);
var
Prn: TextFile;
i: Word;
begin
if PrintDialog1.Execute then
Begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count -1 do
Begin
writeln(Prn, Strings.Strings[i]);
* writeln(prn, #12);
End;
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Erro na impressão do texto.´, mtError, [mbOK], 0);
end;
End;
end;
Me deram uma dica para colocar Writeln(prn, 12);
Coloquei como está acima *
mas quando rodo o sistema ele lê uma linha imprime e pula a folha, lê a segunda linha imprime e pula a folha e assim por diante.
O que devo fazer para imprimir a pagina inteira indentificar a quebra de linha e pular para a proxima linha?
Se alguém puder me ajudar eu agradeço...
procedure TFrmGer.ImpStrings(Strings: TStrings);
var
Prn: TextFile;
i: Word;
begin
if PrintDialog1.Execute then
Begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count -1 do
Begin
writeln(Prn, Strings.Strings[i]);
* writeln(prn, #12);
End;
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Erro na impressão do texto.´, mtError, [mbOK], 0);
end;
End;
end;
Me deram uma dica para colocar Writeln(prn, 12);
Coloquei como está acima *
mas quando rodo o sistema ele lê uma linha imprime e pula a folha, lê a segunda linha imprime e pula a folha e assim por diante.
O que devo fazer para imprimir a pagina inteira indentificar a quebra de linha e pular para a proxima linha?
Se alguém puder me ajudar eu agradeço...
Ecie
Curtidas 0
Respostas
Ecie
19/11/2003
sobe
GOSTEI 0
Weber
19/11/2003
de uma olhada nesse programa
www.produsys.com.br/download/editor.exe
qualquer coisa me contate com e-mail
www.produsys.com.br/download/editor.exe
qualquer coisa me contate com e-mail
GOSTEI 0
Marcelo Saviski
19/11/2003
vc podia tentar assim:
no lugar de [color=green:6e1788562a]* writeln(prn, #12); [/color:6e1788562a]
if I mod 50 = 0 then writeln(prn, 12);
imprime 50 linhas e pula de página, ou
if Strings.Strings[i]) = ´Nova Página´ then writeln(prn, 12);
e nas linhas aonde quer que ocorra quebra de página, escreva [color=blue:6e1788562a]´Nova Página´[/color:6e1788562a]
está pulando a cada linha pq vc coloca um 12 a cada linha, a solução é colocar os 12 só nas linhas aonde for nescessária a quebra
flw
no lugar de [color=green:6e1788562a]* writeln(prn, #12); [/color:6e1788562a]
if I mod 50 = 0 then writeln(prn, 12);
imprime 50 linhas e pula de página, ou
if Strings.Strings[i]) = ´Nova Página´ then writeln(prn, 12);
e nas linhas aonde quer que ocorra quebra de página, escreva [color=blue:6e1788562a]´Nova Página´[/color:6e1788562a]
está pulando a cada linha pq vc coloca um 12 a cada linha, a solução é colocar os 12 só nas linhas aonde for nescessária a quebra
flw
GOSTEI 0