boîte de dialogue de propriétés d’une imprimante

**neodelphi2007** · 16/02/2009, 15h55

Je voudrais appeler directement la boîte de dialogue de propriétés d’une imprimante sans passer par la boîte TPrinterSetupDialog de Delphi.

Merci

**philnext** · 17/02/2009, 08h18

Et pourquoi donc ?

**anapurna** · 17/02/2009, 09h51

salut

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
 
uses CommDlg;
...
procedure TForm.Button Click(Sender: TObject);
var
  Pd : TPrintDlg;
 
begin
  FillChar(Pd, sizeof(Pd), #0); 
  Pd.lStructSize := sizeof(Pd);
  Pd.hWndOwner := self.Handle;
  Pd.Flags := PD_PRINTSETUP;
  if PrintDlg(pd) then 
  begin
     ...
  end;
end;

@+ Phil

**neodelphi2007** · 17/02/2009, 11h44

Merci Phil pour ta réponse.

Mais ce que je cherche c'est pouvoir appeler directement la boîte de dialogue du pilote de l'impression (c'est à dire celle qui apparait lorsque que l'on presse le bouton "propriété" à droite du combo de la liste des imprimantes de la boîte printsetup).

**anapurna** · 17/02/2009, 19h02

salut

pris sur le net d'un site japonnais

interface super compliquer 3 bouton fait des essai et dis nous si tu trouve ton bonheur

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
 
unit PrintDlgAPIUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,Printers,CommDlg,XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private}
  public
    { Public}
  end;
 
function  PrintHookProc(Wnd: HWND; iMsg: UINT; wParam: WPARAM;
     lParam: LPARAM): UINT stdcall;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
//=============================================================================
//  PringDlg API[]1
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
    PrintDlgRec: TPrintDlg;
begin
  //------------------------------
  FillChar(PrintDlgRec, SizeOf(PrintDlgRec), 0);
  with PrintDlgRec do 
  begin
    lStructSize := SizeOf(PrintDlgRec);
    hWndOwner   := Application.Handle;
    //------------------------------
    Flags       := 0;
  end;
  //------------------------------
  PrintDlg(PrintDlgRec);
end;
//=============================================================================
//  PringDlg API[]2
//  
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
    PrintDlgRec: TPrintDlg;
begin
  //------------------------------
  FillChar(PrintDlgRec, SizeOf(PrintDlgRec), 0);
  with PrintDlgRec do 
  begin
    lStructSize   :=SizeOf(PrintDlgRec);
    hWndOwner     :=Application.Handle;
    //------------------------------    
    nFromPage     :=1;
    nToPage       :=6;
    nMinPage      :=0;
    nMaxPage      :=4;
    nCopies       :=3;
    Flags         :=PD_ENABLEPRINTHOOK;
    lpfnPrintHook :=PrintHookProc;
  end;
  //------------------------------
  PrintDlg(PrintDlgRec);
end;
//=============================================================================
//  PringDlg API ()
//  Delphi CommDlg.pas
//
//  PringDlg MSDN Japan?
//  http://www.microsoft.com/JAPAN/developer/library/jpuipf/
//         _win32_setuphookproc.htm
//  (2004 4 17 URL)     ]
//
//  Wnd    
//  iMsg   
//  wParam iMsg
//  lParam 
//=============================================================================
function PrintHookProc(Wnd: HWND; iMsg: UINT; wParam: WPARAM;
      lParam: LPARAM): UINT stdcall;
var
    CollateWnd: HWND;
begin
    //------------------------------
    Result:=0;
    //------------------------------
    if iMsg=WM_INITDIALOG then 
    begin
      //------------------------------
      CollateWnd:=GetDlgItem(Wnd,1041);
      //------------------------------
      SetWindowPos(CollateWnd,0,0,0,0,0,SWP_HIDEWINDOW);
    end;
end;
//=============================================================================
//  []
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
    PrintDlgRec: TPrintDlg;
begin
  //------------------------------
  FillChar(PrintDlgRec, SizeOf(PrintDlgRec), 0);
  with PrintDlgRec do begin
    lStructSize := SizeOf(PrintDlgRec);
    hWndOwner   := Application.Handle;
    //------------------------------
    Flags       := PD_PRINTSETUP;
  end;
  PrintDlg(PrintDlgRec);
end;
 
end.

@+ Phil