COMMENT IMPRIMER

Commentaire de japee le 14/04/2007 20:13:45 administrateur CS

Titre et catégorie modifiés.

Il faut écrire : "impression", pas "impession".

Source à revoir :
- orthographe des messages (c'est un minimum, respect de l'utilisateur)
- mise en situation : le code est simpliste et n'ajoute rien à l'utilisation du composant TPrintDialog fourni dans la VCL de Delphi.

De plus, Zicons, il faut que tu étudies un peu la programmation avant de nous inonder avec tes codes de niveau élémentaire qui n'apportent rien à la communauté. Regarde les autres codes postés et tu comprendra ce que je veux dire. Je ne vais pas le répéter à chaque fois.

N'hésite pas à ouvrir un livre de programmation, et à poser des questions sur le forum, il est fait pour ça.

Commentaire de japee le 14/04/2007 21:18:50 administrateur CS

Celui qui ne connait pas presse sur la touche F1 et voilà ce qu'il obtient, c'est beaucoup plus complet :

Cet exemple utilise une fiche contenant un bouton, un contrôle pages et une boîte de dialogue d'impression. Lorsque l'utilisateur clique sur le bouton, la boîte de dialogue d'impression est affichée.  L'utilisateur peut sélectionner n'importe quel sous-ensemble de pages dans le contrôle de pages pour l'impression.  Les pages sélectionnées sont alors imprimées.
Pour exécuter cet exemple, vous devez ajouter l'unité Printers à la clause uses de votre unité.

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
   { détermine l'ensemble que l'utilisateur souhaite imprimer }
    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;
    { imprime les pages maintenant }

    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;

Y'a pas photo...

Commentaire de DelphiCool le 15/04/2007 12:58:58 administrateur CS

Salut les gars,

à mes début aussi je postai des sources assez minimaliste.

Comme Zicson1, je voulai en faire profiter aux autres.

Il ne faut pas lui sauter au cou, lol.
Juste lui dire que le prochain source devra être un peu plus poussé.

Enfin c'est un avis.