Array
(
)

Imprimir somente pagina intermediária

Rcasistemas
|
MVP
    31 mar 2006

Bom dia a todos...

Tenho um visualizador de txt generico, simples, como um notepad, mas gostaria de poder imprimir paginas intermediaria, tipo, imprimir somente a pagina 3, como posso implementar isto????

Eu uso RichEdit + PrinterSetupDialog + PrintDialog

#Código



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


Rcasistemas
|
MVP
    31 mar 2006

Sobe


Rcasistemas
|
MVP
    04 abr 2006


Citação:
Sobe

Sobe