Imprimir somente pagina intermediária

31/03/2006

Bom dia a todos...

Tenho um visualizador de txt generico, simples, como um notepad, mas gostaria de poder imprimir paginas intermediaria, tipo, [color=navy:50a0b57ef6]imprimir somente a pagina 3[/color:50a0b57ef6], como posso implementar isto????

Eu uso RichEdit + PrinterSetupDialog + PrintDialog


procedure TFMainView.Imprimir;
var
  Lin, Tm, I, J: Integer;
begin
  //-- Configura impressao
  Printer.Title := Title;
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := ´Courier New´;
  Printer.Canvas.Font.Size := Printer.Canvas.Font.Size -1;
  Printer.Canvas.Font.Color := FontColor;

  Tm := Printer.Canvas.TextHeight(´O´);
  Lin := 6 * Tm;
  J := 0;
  for i:=0 to RchEdt.Lines.Count-1 do
    begin

      //-- Muda a pagina se estiver na linha 95
      //-- Tenho q mudar a maneira de ejetar a pagina[b&93;
      if J >= 95 then
        begin
          Printer.Canvas.TextOut( 0 , Lin , ´>> Continua...´ );

          //-- Incializa variaveis
          J := 0;
          Lin := 6 * Tm;
          Printer.NewPage;
        end;
      Printer.Canvas.TextOut( 0 , Lin , RchEdt.Lines[i&93; );

      //-- Incrementa para escrever na proxima linha
      Lin := Lin +Tm;

      //-- Incrementa o numero da linha impressa
      Inc(J);
    end;
  Printer.EndDoc;
end;



Gente, agradeço muito a quem puder me ajudar!!!!
Abraços


Rcasistemas

Currículo

Respostas

31/03/2006

Rcasistemas Currículo

Sobe


Responder Citar

04/04/2006

Rcasistemas Currículo

Sobe

Sobe


Responder Citar