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
Gente, agradeço muito a quem puder me ajudar!!!!
Abraços
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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)