[Quick Report] - Sélection d'un bac d'impression.

Version imprimable

06/07/2007, 10h51
Argonz

[Quick Report] - Sélection d'un bac d'impression.
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:

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

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.

il manque l'utilisation de CQRBinTranslate

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

Code:

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:

QuickRep1.PrinterSettings.OutputBin:=Bin;

avec ça , tu dois pouvoir te débrouiller :mouarf:

06/07/2007, 14h51
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 ?
07/07/2007, 07h20
SergioMaster

la partie qui t'interesse est uniquement le

Code:

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é