A ver si yo estoy confundio:
Teniendo un PrintDialog1, las propiedades son asi?
Código Delphi
[-]
PrintDialog1.FromPage:=x;
PrintDialog1.ToPage:=x;
PrintDialog1.MinPage:=x;
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;
PrintDialog1.FromPage:=StrToInt(JvSpinEdit1.Text); PrintDialog1.ToPage:=StrToInt(JvSpinEdit2.Text); 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;