Discussion :

[Lung]

Comment gérer les bacs de l'imprimante, de manière à lancer certain document sur un bac, et d'autre sur un autre bac ?

J'ai vu que je ne suis pas le seul à poser la question, mais je n'ai vu aucune réponse (http://www.developpez.net/forums/showthread.php?t=75867).

As-tu effectué une recherche sur les newsgroupe Borland ou MS ?

J'ai suivi le conseil, et j'ai trouvé ca : http://codecentral.borland.com/Item.aspx?id=490
Le problème, c'est qu'il faut s'enregistrer, et quand j'essai (http://codecentral.borland.com/Download.aspx?id=490), il me dit que l'adresse mail est déjà prise (ce qui est impossible).

Quelqu'un aurait-il la solution ?

[Jipété]

Yep !

Cherche à partir de là (peux pas essayer, ma laser n'a qu'un seul bac, )

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
uses
  WinSpool, Printers;
 
procedure GetPaperBins(sl: TStrings);
//http://www.swissdelphicenter.ch/torry/showcode.php?id=796
type
  TBinName      = array [0..23] of Char;
  TBinNameArray = array [1..High(Integer) div SizeOf(TBinName)] of TBinName;
  PBinnameArray = ^TBinNameArray;
  TBinArray     = array [1..High(Integer) div SizeOf(Word)] of Word;
  PBinArray     = ^TBinArray;
var
  Device, Driver, Port: array [0..255] of Char;
  hDevMode: THandle;
  i, numBinNames, numBins, temp: Integer;
  pBinNames: PBinnameArray;
  pBins: PBinArray;
begin
  Printer.PrinterIndex := -1;
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  numBinNames := WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, nil, nil);
  numBins     := WinSpool.DeviceCapabilities(Device, Port, DC_BINS, nil, nil);
  if numBins <> numBinNames then
  begin
    raise Exception.Create('DeviceCapabilities reports different number of bins and bin names!');
  end;
  if numBinNames > 0 then
  begin
    pBins := nil;
    GetMem(pBinNames, numBinNames * SizeOf(TBinname));
    GetMem(pBins, numBins * SizeOf(Word));
    try
      WinSpool.DeviceCapabilities(Device, Port, DC_BINNAMES, PChar(pBinNames), nil);
      WinSpool.DeviceCapabilities(Device, Port, DC_BINS, PChar(pBins), nil);
      sl.Clear;
      for i := 1 to numBinNames do
      begin
        temp := pBins^[i];
        sl.addObject(pBinNames^[i], TObject(temp));
      end;
    finally
      FreeMem(pBinNames);
      if pBins <> nil then
        FreeMem(pBins);
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetPaperBins(Listbox1.Items);
end;

Mes 2 cts,
--
jp

[Lung]

Ce code-là, je l'ai déjà testé, et effectivement, il détecte bien les bacs.


Par contre, j'ai pas vu de fonctions dans WinSpool pour sélectionner les bacs.

Je creuse ...

[Lung]

J'ai réussi à accéder à la page des newsgroup borland :

> Anyone know how to easily change printer bins on the fly. Any assistance
> would be much appreciated.
> Howard

One way to change printer settings at the start
of a print job is to change the printers devicemode.

See: TDEVMODE in the Delphi 1.02 help file or DEVMODE
in the Delphi 2.01 help file for other settings you can
change (providing the print driver supports the change).


Here is an example of changing paper sizes:

var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then begin
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100, 'Test 1');
Printer.EndDoc;
end;


Joe
--
Joe C. Hecht

Mais je ne pense pas que la définition du PaperSize m'aide à choisir les bacs de l'imprimante.


Sinon, j'ai trouvé une fonction qui a l'air intéressante (http://www.developpez.net/forums/sho...d.php?t=251013): WinSpool.AdvancedDocumentProperties.
Le problème, c'est comment allouer PDeviceModeA.

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
procedure TForm1.Button2Click(Sender: TObject);
var
   nIndex, nTaille: Integer;
   phPrinter: Cardinal;
   _PPrinterDefaultsA: PPrinterDefaultsA;
//   Device, Driver, Port: array [0..255] of Char;
//   hDevMode: THandle;
   pDEVMODE1: PDeviceModeA;
begin
   Listbox.Clear;
   nIndex := Printer.PrinterIndex;
   Printer.PrinterIndex := Printer.Printers.IndexOf('imp-hm-be1');
   try
      GetMem(_PPrinterDefaultsA, SizeOf(TPrinterDefaultsA));
      _PPrinterDefaultsA.pDatatype := nil;
      _PPrinterDefaultsA.pDevMode := nil;
      _PPrinterDefaultsA.DesiredAccess := PRINTER_ACCESS_ADMINISTER;    // SERVER_ALL_ACCESS;       
 
      if not OpenPrinter('imp-hm-be1', phPrinter, _PPrinterDefaultsA) then
      begin
         ShowMessage(SysErrorMessage(GetLastError));
         Exit;
      end;
//      Printer.GetPrinter(Device, Driver, Port, hDevmode);                 //Device
      GetMem(pDEVMODE1, SizeOf(DEVMODE));
      WinSpool.AdvancedDocumentProperties(Form1.Handle, phPrinter, 'imp-hm-be1', pDEVMODE1, nil);
      nTaille := pDEVMODE1.dmSize;
      FreeMem(pDEVMODE1);
 
      GetMem(pDEVMODE1, nTaille * SizeOf(DEVMODE));
      if WinSpool.AdvancedDocumentProperties(Form1.Handle, Printer.Handle, 'imp-hm-be1', pDEVMODE1, nil) = 0 then
      begin
         ShowMessage(SysErrorMessage(GetLastError));   <-------- ERREUR DECLANCHEE ICI
         Exit;
      end;
 
      ListBox.Items.Add('dmDeviceName :  ' + pDEVMODE1.dmDeviceName);
      ListBox.Items.Add('dmColor :  ' + IntToStr(pDEVMODE1.dmColor));
      ListBox.Items.Add('dmDefaultSource :  ' + IntToStr(pDEVMODE1.dmDefaultSource));
      FreeMem(pDEVMODE1);
   finally
      Printer.PrinterIndex := nIndex;
   end;
end;

J'ai l'erreur "Descripteur non valide" à l'appel de AdvancedDocumentProperties.

Une idée ...?

[Lung]

Bon, j'arrive enfin à sélectionner le bac parmis la liste des bacs de l'imprimante (en affichant la boîte de dialogue ou non), mais ça n'a aucun effet.

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
var
   nIndex, nTaille: Integer;
   pDEVMODE1: PDeviceMode;
   Device, Driver, Port: array [0..255] of Char;
   hDevMode: THandle;
begin
   Listbox.Clear;
   nIndex := Printer.PrinterIndex;               
//   Printer.PrinterIndex := Printer.Printers.IndexOf('imp-hm-be1');
   try
      Printer.GetPrinter(Device, Driver, Port, hDevmode);
 
      pDEVMODE1 := nil;   
      nTaille := WinSpool.DocumentProperties(0, 0, Device, pDEVMODE1^, pDEVMODE1^, 0);
 
 
      GetMem(pDEVMODE1, nTaille * SizeOf(DEVMODE));
      WinSpool.DocumentProperties(0, 0, Device, pDEVMODE1^, pDEVMODE1^, {DM_IN_PROMPT or} DM_OUT_BUFFER);
 
      ListBox.Items.Add('dmDeviceName :  ' + pDEVMODE1^.dmDeviceName);
      ListBox.Items.Add('dmColor :  ' + IntToStr(pDEVMODE1^.dmColor));
      ListBox.Items.Add('dmDefaultSource :  ' + IntToStr(pDEVMODE1^.dmDefaultSource));
 
      pDEVMODE1.dmDefaultSource := DMBIN_MANUAL;
      WinSpool.DocumentProperties(0, 0, Device, pDEVMODE1^, pDEVMODE1^, DM_IN_BUFFER or DM_OUT_BUFFER);
 
      ListBox.Items.Add('');
      ListBox.Items.Add('dmDeviceName :  ' + pDEVMODE1^.dmDeviceName);
      ListBox.Items.Add('dmColor :  ' + IntToStr(pDEVMODE1^.dmColor));
      ListBox.Items.Add('dmDefaultSource :  ' + IntToStr(pDEVMODE1^.dmDefaultSource));
 
      FreeMem(pDEVMODE1);    
   finally
      Printer.PrinterIndex := nIndex;
   end;
 
   // ------------------------------------------------
   Printer.BeginDoc;
   Printer.Canvas.TextOut(StrToInt(Edit1.Text), StrToInt(Edit2.Text), 'Test X');
   Printer.EndDoc;

Pourtant, j'ai l'impression d'avoir bien suivi les étapes :
http://support.microsoft.com/kb/167345

[Lung]

Victoire !!!

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
var
   nIndex: Integer;
   pDEVMODE1: PDeviceMode;
   Device, Driver, Port: array [0..255] of Char;
   hDevMode: THandle;
begin
   Listbox.Clear;
   nIndex := Printer.PrinterIndex;               
//   Printer.PrinterIndex := Printer.Printers.IndexOf('imp-hm-be1');
 
 
   try
      Printer.GetPrinter(Device, Driver, Port, hDevmode);
      pDEVMODE1 := GlobalLock(hDevmode);
 
      ListBox.Items.Add('dmDeviceName :  ' + pDEVMODE1^.dmDeviceName);
      ListBox.Items.Add('dmColor :  ' + IntToStr(pDEVMODE1^.dmColor));
      ListBox.Items.Add('dmDefaultSource :  ' + IntToStr(pDEVMODE1^.dmDefaultSource));
 
      pDEVMODE1.dmDefaultSource := DMBIN_MANUAL;
 
      ListBox.Items.Add('');
      ListBox.Items.Add('dmDeviceName :  ' + pDEVMODE1^.dmDeviceName);
      ListBox.Items.Add('dmColor :  ' + IntToStr(pDEVMODE1^.dmColor));
      ListBox.Items.Add('dmDefaultSource :  ' + IntToStr(pDEVMODE1^.dmDefaultSource));
 
      Printer.SetPrinter(Device, Driver, Port, hDevmode);
 
      // ------------------------------------------------
      Printer.BeginDoc;
      Printer.Canvas.TextOut(StrToInt(Edit1.Text), StrToInt(Edit2.Text), 'Test poiop');
      Printer.EndDoc;
 
      GlobalUnlock(hDevmode);
   finally
      Printer.PrinterIndex := nIndex;
   end;

Bon, bin faut jouer avec GetPrinter et SetPrinter.