PrintDialog et impression

Version imprimable

21/01/2007, 16h33
andreditdd

PrintDialog et impression

Bonjour,
J'ai un petit souci avec le composant PrintDialog:
Comment faire pour que lorsque l'on clique sur "ok" de la boite de dialogue (PrintDialog) l'impression démarre en prenant en compte les parametres que l'on a choisi dans cette boite ?

Merci,
André
21/01/2007, 17h55
tatareau

un coup de :google2: et peut-être cela va t'aider: http://www.delphibasics.co.uk/RTL.asp?Name=TPrintDialog
Bon code
;)
21/01/2007, 18h07
andreditdd

Merci tatareau,
depuis un bon moment je cherche sur google mais j'arrete mes recherche sur "français":roll: .
Je vais essayer à partir de ce code.

André
21/01/2007, 19h36
andreditdd

Bon ben je ne doit pas etre tres futé car je ne comprend rien à ce composant:( .

André
21/01/2007, 22h33
andreditdd

En fait, je désire que lorsque Form2 s'ouvre, la boite de dialogue d'impression s'ouvre par dessus.
Lorsque l'utilisateur aura choisi son imprimante et cliqué sur "ok", l'impression de la Form2 commencera.

Cela fait 11h que je tente cela en vain...
HELP !!!

André

1 pièce(s) jointe(s)

Salut, essaie le petit bout de code suivant:

Le source est dispo ici : Pièce jointe 8870

Pour la form1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
  with tform2.create(Application) do
  begin
    Showmodal;
    Free;
  end;
end;
 
end.

Pour la form2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm2 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  with TPrintDialog.Create(Application) do
  begin
    if Execute then Print;
  end;
end;
 
end.

J'espère que c'est ce que tu recherches.

22/01/2007, 18h43
andreditdd

MedGIR,
un grand merci...
ça fonctionne impec
:ccool: :ave:

André