Ouvrir le gestionnaire d'impression

Version imprimable

21/10/2004, 09h19
MagicManu

Ouvrir le gestionnaire d'impression

Salut,
j'ai fais un logiciel super verrouillé (pas d'accès à Windows, touches de fonctions désactivées...) mais qui imprime automatiquement.
Le prob c'est qu'il arrive qu'une impression foire (plus de feuille par exemple).
Donc, existe t-il un moyen d'ouvrir la fenêtre d'état de l'imprimante pour voir les impression en attente en cliquant sur un bouton ?

Merci ;)
25/10/2004, 08h15
MagicManu

Humm, j'ai posé une colle là 8)

J'ai bien un bout de code à te proposer mais il suppose que IE 4 soit installé :

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
 
const
  // Printer stuff
  PRINTACTION_OPEN = 0;
  PRINTACTION_PROPERTIES = 1;
  PRINTACTION_NETINSTALL = 2;
  PRINTACTION_NETINSTALLLINK = 3;
  PRINTACTION_TESTPAGE = 4;
  PRINTACTION_OPENNETPRN = 5;
  PRINTACTION_DOCUMENTDEFAULTS = 6;
  PRINTACTION_SERVERPROPERTIES = 7;
 
// Déclaration manquante dans ShellAPI
function SHInvokePrinterCommandA(hwnd: HWND; uAction: UINT;
  lpBuf1, lpBuf2: PChar; fModal: boolean): boolean; stdcall; external 'Shell32.dll';
 
function OpenPrinter(PrinterName: string): boolean;
begin
  result:= SHInvokePrinterCommandA(0, PRINTACTION_OPEN, PChar(PrinterName), nil,
    false);
end;
 
// Exemple d'utilisation
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenPrinter(Printer.Printers[Printer.PrinterIndex]);
end;

25/10/2004, 13h38
MagicManu

Merci beaucoup,
ça marche nickel, cette appli ne sera installée que sur des Postes Win XP donc pas de prob ;)

Merci, @+ ;)