Discussion :

[fredfred]

Salut à tous

J'ai un problème pour envoyer une impression via Quickreport vers une imprimante partagée sur le poste.

La liste Printer.Printers n'affiche aucun des noms des imprimantes partagées, uniquement leurs noms rééls.

Comment puis-je retrouver une imprimante avec uniquement son nom de partage et envoyer une impression dessus ?

Merci

[Lung]

Regarde dans l'unité WinSpool. Tu trouveras surement ton bonheur.

Sinon, GetPrinter est capable de te donner le PrinterName et le ShareName (entre autre).

[fredfred]

Bon, j'ai pas capté grand chose.
Surtout qu'entre le GetPrinter de Windows et celui de la VCL, pas simple de distinguer quoi que ce soit.

Bref, j'ai trouvé un bout de code sur le net avec le GetPrinter de Windows, qui repère bien mon imprimante partagée, mais l'envoi de l'impression du report part systèmatiquement sur l'imprimante par défaut du poste :

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
 
      with QR_Etiquette do
      begin
        Prepare ;
 
        // Imprimante sélectionnée
        PrinterName := '\\'+VGL_POSTE+'\ETIQUETTE';
 
        If OpenPrinter(PChar(PrinterName),PrinterHandle,NiL) Then Begin
         GetPrinter(PrinterHandle,1,@PPRINTER_INFO_1,SizeOf (PPRINTER_INFO_1),@EnumSizeOfBuffer);
 
 
          SetPrinter(PrinterHandle,1,@PPRINTER_INFO_1,SizeOf (PPRINTER_INFO_1));
 
 
          // Impression
          Print;
        end;
 
        free;
      end;

Il diot manquer une instruction pour assigner l'imprimante récupérée par le GetPrinter au report, mais je ne vois pas quoi...

[Lung]

Pour donner une imprimante à QuickReport, je fais ça :

Code :

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

QuickRep.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

Sinon, il y a peut-être des fonctions utiles dans l'unité QRPrntr.

[fredfred]

Pour donner une imprimante à QuickReport, je fais ça :

Code :

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

QuickRep.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

Sinon, il y a peut-être des fonctions utiles dans l'unité QRPrntr.

C'est également ce que j'utilise quand j'envoie sur une imprimante standard, mais ça na marche pas avec mon imprimante partagée car elle n'apparait pas dans la liste Printer, d'où l'utilisation du GetPrinter. Mais je ne parviens pas ensuite à associer le GetPrinter au report.

[SergioMaster]

mon imprimante partagée car elle n'apparait pas dans la liste Printer,

c'est plutôt ça qui est bizarre

cela fait longtemps mais j'avais fait un truc avec GetPrinter ici à voir si ça peut t'aider

[fredfred]

c'est plutôt ça qui est bizarre

En fait je me suis mal exprimé. Elle apparait bien avec son nom physique (Zebra xxx), mais il y a plusieurs Zebra connectées sur le poste, de différents modèles que je ne connais pas forcément, et le seul moyen d'identifier la bonne est son nom partagé, qui lui n'apparait pas dans la liste Printer.

cela fait longtemps mais j'avais fait un truc avec GetPrinter ici à voir si ça peut t'aider

J'ai regardé ton code, mais nous n'utilisons pas la même version de Getprinter. Ton exemple est basé sur la fonction VCL, alors que j'utilise celle de Windows, qui est la seule avec laquelle j'arrive à "trouver" l'imprimante d'après son seul nom de partage. Si je devais utiliser la version VCL, je ne saurais pas quoi mettre dans les paramétres (FDevice, FDriver, FPort, DeviceMode).