Discussion :

[Argonz]

Bonjour !

J'aimerais pouvoir forcer quick report à utiliser un certain bac de mon imprimante. Mais c'est juste imposssible. Enfin je n'y arrive pas.
J'ai essayé ceci :

Code :

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

1
2
 
Form1.QuickRep1.PrinterSettings.OutputBin        := TQrBin(3);

et

Code :

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

1
2
3
 
Form1.QuickRep1.PrinterSettings.USeCustomBinCode := True;
Form1.QuickRep1.PrinterSettings.CustomBinCode      := 3; //Numéro du back

J'ai aussi remarque que lorsque j'appelle : Form1.QuickRep1.PrinterSetup; et que je modifie l'imprimante et le bac et que après cela je test la valeur Form1.QuickRep1.PrinterSettings.OutputBin la valeur de OutputBin n'est pas modifiée... Mais si je lance une impression tout est ok...

Est-ce que vous pourriez me filer un coup de main SVP !!

D'avance merci.

[SergioMaster]

il manque l'utilisation de CQRBinTranslate

voilà une très vieille fonction que j'utilise

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
 
function TForm1.Bin : TQRBin;
begin
Result:=Auto;
if not Data.Imprimantes.FindKey([Computer,Uppercase(Printer.Printers[Printer.PrinterIndex]),ActiveSoc])
 then begin
   ShowMessage(Format('Paramètre Imprimante non trouvé %s %s %s',
                      [Computer,Printer.Printers[Printer.PrinterIndex],ActiveSoc]));
   Exit;
 end;
for result:=First to Last do
  if CQRBintranslate[result]=Data.Imprimantes.FieldByName('BINPREIMP').asInteger
  then break;
if CQRBintranslate[result]<>Data.Imprimantes.FieldByName('BINPREIMP').asInteger
  then begin
    ShowMessage('Magasin Auto');
    result:=Auto;
  end;
 end;

sachant que : j'utilise une table des imprimantes

suivie de son utilisation

Code :

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

QuickRep1.PrinterSettings.OutputBin:=Bin;

avec ça , tu dois pouvoir te débrouiller

[Argonz]

Salut ! Déja merci de ta réponse.

Mais je comprend pas tout ton code.
Data.Imprimantes.
C'est quoi ça !?

Non sérieusement je comprend pas bien ce que cela représente. "Imprimantes" c'est un DataSet ?
Et "ActiveSoc" correspond à quoi ?

[SergioMaster]

la partie qui t'interesse est uniquement le

Code :

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

  if CQRBintranslate[result]=Data.Imprimantes.FieldByName('BINPREIMP').asInteger

où Data.Imprimantes.FieldByName('BINPREIMP').asInteger est le numéro du bin


ps . attention les imprimantes ont parfois des numéros bizarres et pas forcément logique

pour plus de détail voilà :

mon programme est multisociété , un fichier imprimante est construit pour que chaque société ait son propre bac d'impression (surtout pour les factures)
activesoc est la société 'active' sur le poste au moment de l'impression

format du fichier
POSTE <- Poste de travail
IMPRIMANTE <- imprimantes associées au poste
SOCIETE <- sociétés 'travaillées' sur ce poste
BIN <- bac papier blanc
BINPREIMP <- bac papier préimprimé