Imprimir somente pagina intermediária

31/03/2006

0

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]
      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] );

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


Aloizio Castro

Aloizio Castro

Responder

Posts

31/03/2006

Aloizio Castro

Sobe


Responder

04/04/2006

Aloizio Castro

Sobe

Sobe


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar