Discussion :

[andreditdd]

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é

[tatareau]

un coup de et peut-être cela va t'aider: http://www.delphibasics.co.uk/RTL.asp?Name=TPrintDialog
Bon code

[andreditdd]

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

André

[andreditdd]

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

André

[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é

[MedGIR]

Salut, essaie le petit bout de code suivant:

Le source est dispo ici : print.zip

Pour la form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[andreditdd]

MedGIR,
un grand merci...
ça fonctionne impec


André