Ce forum est maintenant fermé, seule cette archive statique reste consultable.
  FORUM Rue-Montgallet.com
  Programmation
  Delphi - Pascal

  Impression d'éléments label avec checbox

Bas de page
Auteur Sujet :

Impression d'éléments label avec checbox

n°11009
kpetrem
Profil : Membre
Posté le 01-01-2005 à 19:03:08  
 

J'ai concu un logiciel de formulaire et je n'arrive pas à imprimer les éléments checkbox.
Voici le code que j'ai utilisé :  
 
procedure TForm1.Button1Click(Sender:TObject);
 
var
  I, Start, Stop: Integer;
begin
PrintDialog1.Options := [poPageNums, poSelection];
PrintDialog1.FromPage := 1;
PrintDialog1.MinPage := 1;
PrintDialog1.ToPage := PageControl1.PageCount;
PrintDialog1.MaxPage := PageControl1.PageCount;
if PrintDialog1.Execute then
  begin
     
    with PrintDialog1 do  
    begin
      if PrintRange = prAllPages then
 
        begin
        Start := MinPage - 1;
        Stop := MaxPage - 1;
      end
      else if PrintRange = prSelection then
      begin
        Start := PageControl1.ActivePage.PageIndex;
        Stop := Start;
        end
      else  { PrintRange = prPageNums }
      begin
        Start := FromPage - 1;
        Stop := ToPage - 1;
      end;
    end;
   
 
    with Printer do
    begin
      BeginDoc;
      for I := Start to Stop do
      begin
        PageControl1.Pages[I].PaintTo(Handle, 10, 10);
        if I <> Stop then
          NewPage;
      end;
      EndDoc;
    end;
  end;
 
end;
 
Merci d'avance

mood
Pub
Posté le 01-01-2005 à 19:03:08  
 

n°16232
jxano
Le 'x' ? C'est pour décorer.
Profil : Membre
Posté le 03-04-2006 à 17:14:07  
 

Bonjour,
 
N'y a-t-il pas une propriété "PrintEnable" (ou qqch du genre) dans la classe de tes éléments CheckBox, qui permettrait justement de les imprimer ?
 
Si oui, il suffit de les passer de "No" à "Yes" pour chaque instance.
 
À bientôt,


---------------
Miximus in lecto, fateor peccavimus hospes. Si dices quare nulla matella fuit !
  FORUM Rue-Montgallet.com
  Programmation
  Delphi - Pascal

  Impression d'éléments label avec checbox

© 2000-2018 Forum.rue-montgallet.com - Tous droits réservés