Ver Mensaje Individual
  #1  
Antiguo 29-04-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 19
MaMu Va por buen camino
Problema con PrintDialog

A ver si yo estoy confundio:

Teniendo un PrintDialog1, las propiedades son asi?

Código Delphi [-]
 
//Desde donde arranca al rango de selección
PrintDialog1.FromPage:=x;
//Hasta donde llega el rando de selección
PrintDialog1.ToPage:=x;
//Mínima cantidad de páginas a imprimir
PrintDialog1.MinPage:=x;
//Máxima cantidad de páginas a imprimir

Porque yo lo ejecuto, modificando dichas propiedades, y el rango siempre me aparece de 1 a 1.

Código Delphi [-]
procedure TPlantelFutbol.btnPrintClick(Sender: TObject);
var
  NDRStream:  TMemoryStream;
begin
 NDRStream := TMemoryStream.Create;
  try
    if PrintDialog1.Execute
      then begin
        RvRenderPrinter1.Active:=True;
        RvNDRWriter1.Copies:=PrintDialog1.Copies;
        RvNDRWriter1.Orientation:=poLandScape;
        RvProject1.open;
        RvProject1.SelectReport('Plantel',true);
        RvProject1.SaveToStream(NDRStream);
        RvNDRWriter1.Stream:=NDRStream;
        RvProject1.Execute;
        RvRenderPrinter1.Render(NDRStream);
        RvRenderPreview1.Render(NDRStream);
        RvProject1.close;
        //EL desde y el hasta contienen los valore de CurrentPage y TotalPages
        PrintDialog1.FromPage:=StrToInt(JvSpinEdit1.Text);  //desde
        PrintDialog1.ToPage:=StrToInt(JvSpinEdit2.Text);     //hasta   
       end;
  except
    NDRStream.Free;
  end;  
end;

Qué estoy haciendo mal?

Saludos
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita