Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-04-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 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
  #2  
Antiguo 29-04-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 19
MaMu Va por buen camino
SOLUCIONADO

Código Delphi [-]
 
//Rango mínimo de entrada de usuario
 PrintDialog1.MinPage:=StrToInt(JvSpinEdit1.Text);
//Rango máximo de entrada de usuario
 PrintDialog1.MaxPage:=StrToInt(JvSpinEdit2.Text);
//Valor del campo Desde del PrintDialog
 PrintDialog1.FromPage:=StrToInt(JvSpinEdit1.Text);
//Valor del campo Hasta del PrintDialog
 PrintDialog1.ToPage:=StrToInt(JvSpinEdit2.Text);
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Impresion con PrintDialog manolop Impresión 3 10-09-2010 15:00:27
rango de paginas en PrintDialog reina Impresión 2 29-06-2006 06:23:29
Sobre PrintDialog erfedecai Impresión 0 10-06-2006 13:03:14
¿ Existe el PrintDialog en Kylix ? athal Lazarus, FreePascal, Kylix, etc. 12 20-06-2004 20:33:50
obtener el nombre de impresora de printdialog Rafa Impresión 1 29-10-2003 13:27:14


La franja horaria es GMT +2. Ahora son las 18:40:47.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi