Discussion :

[lave_01]

Bonjour,

Dans notre application, l'utilisateur peut changer son imprimante par défaut par le biais du composant TprinterSetupDialog. Dans mon form principal, cela fonctionne bien puisqu'il envoi l'impression du premier document vers l'imprimante choisie.
Pour le second document, l'impression se passe dans une autre unit, avec un form également, pour le traitement des données. Dans cette unit, il ne tient pas compte de la nouvelle imprimante définie mais il prend toujours l'imprimante par défaut du pc.

Je n'ai rien vu au niveau de la seconde unit pour dire qu'il doit prendre les même informations que la unit principale.

Auriez-vous des idées/solutions ?

Merci d'avance pour votre aide.

[retwas]

Est-ce que tu peux mettre un peu de code ?

Sur la seconde Form, l'impression part sur l'imprimante par défaut définie sous Windows ?

[lave_01]

Bonjour,

Voici le code de la sélection de l'imprimante :

Code :

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

1
2
3
4
5
procedure TDelibesFm.ChoixImprimante1Click(Sender: TObject);
begin
  //boîte de dialogue pour le choix de l'imprimante
  PrinterSetupDialog1.Execute;
end;

Ce code est sur le form DelibesFm.

Le lancement de l'impression est sur ce form.
Ensuite, la finalisation de l'impression est sur un autre form appelé GlobalPrint. C'est sur ce form que l'limprimante reste l'imprimante par défaut de Windows.

J'ai mis ce code dans le second form pour voir l'imprimante par défaut

Code :

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

1
2
3
 
  GetProfileString('Windows', 'device', '', ResStr, 255);
  ShowMessage(StrPas(ResStr));

Merci d'avance pour l'aide

[lave_01]

Bonjour,

Je suis toujours bloqué mais j'ai fait quelques tests supplémentaires :

J'ai mis sur le form ne prenant pas l'imprimante nouvellement définie le code suivant :

Code :

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

1
2
3
4
5
  GetProfileString('Windows', 'device', '', ResStr, 255);
  ShowMessage(StrPas(ResStr));
  dlgPntSet1.Execute;
  GetProfileString('Windows', 'device', '', ResStr, 255);
  ShowMessage(StrPas(ResStr));

Cela me donne toujours la même imprimante malgré le changement. Par contre, je pense que l'imprimante retournée est l'imprimante par défaut de Windows. Avec le compsoant TprinterSetupdialog, cela ne la change que pour le programme.
Comment connaître l'imprimante par défaut en cours dans le programme ?

Voici également encore des informations supplémentaires sur le programme si cela peut aider

Le print est lancé du form principal comme le choix de l'imprimante.
Deux type d'impressions partent : 1 vers un document Html (avec le composant Htmlviewer) et l'autre vers un rapport Crystal Reports (avec le composant (TCrview).
Les deux impressions sont gérés sur des forms différents du principal. Le form pour l'impression html n'a pas d'aspect visuel, pour l'impression Crystal Report, c'est un form visuel.

Lors du lancement de l'impression, le changement de l'imprimante fonctionne bien sur l'html mais pas sur l'impression crystal reports.

Merci d'avance pour votre aide.

[Papy214]

Je peux me tromper mais Htmlviewer est un composant Delphi et donc prend en compte l'imprimante par défaut définie par le code Delphi.
Crystal Report est une librairie externe qui doit utiliser son propre gestionnaire d'impression.
Il faudrait voir si cette librairie ne propose pas une fonction pour associer une imprimante précise plutôt que celle de Windows.

[tourlourou]

Peut-être des idées ici, pour informer Windows du changement d'imprimante par défaut.

[lave_01]

Bonjour,

Merci pour les informations. Je vais regarder le lien.

Htmlviewer n'est pas natif dans Delphi. Le composant est le suivant : https://github.com/BerndGabriel/HtmlViewer

Pour crystalviewer : https://code.google.com/archive/p/de...report-viewer/

Pour Crystal, il a effectivement la possibilité de changer l'imprimante via le composant => comment obtenir l'imprimante définie via TprinterSetupDialog pour la lui passer ?

Bonne journée

[Papy214]

quand je parle de composant delphi, je veux dire que c'est du code delphi et non une dll externe ou un ocx.
En l'occurrence, il s'agit bien d'un composant delphi au sens large du terme, non installé par delphi mais écrit en .... plutôt en pascal d'ailleurs .

Bonjour,

Merci pour les informations. Je vais regarder le lien.

Htmlviewer n'est pas natif dans Delphi. Le composant est le suivant : https://github.com/BerndGabriel/HtmlViewer

Pour crystalviewer : https://code.google.com/archive/p/de...report-viewer/

Pour Crystal, il a effectivement la possibilité de changer l'imprimante via le composant => comment obtenir l'imprimante définie via TprinterSetupDialog pour la lui passer ?

Bonne journée

[Papy214]

Pour Crystal, il a effectivement la possibilité de changer l'imprimante via le composant => comment obtenir l'imprimante définie via TprinterSetupDialog pour la lui passer ?

TprinterSetupDialog.Execute change le PrinterIndex de l'objet Printer.

Code :

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

1
2
  if PrinterSetupDialog1.Execute then
    ShowMessage( Printer.Printers[Printer.PrinterIndex] );

Après, je ne sais pas ce qu'attend Crystal Report pour définir une imprimante. Son nom ?

complément:

pour avoir des détails plus complet sur l'imprimante définie avec TPrinterSetupDialog:

Code :

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

1
2
3
4
5
6
7
var
  MyPrinter, MyDriver, MyPort: array[0..100] of Char;
  DevMode: THandle;
begin
  Printer.GetPrinter(MyPrinter, MyDriver, MyPort, DevMode);
  Label1.Caption:=MyPrinter;
  Label2.Caption:=MyPort;

[SergioMaster]

Bonjour,

je ne m'étais pas jusqu'à présent immiscé dans ce fil tant que je n'avais pas les composants entrant en jeu.
en faisant quelques recherches (car ça fait un bail que je n'utilise plus Crystal Report) je suis "tomber" sur cette réponse

[lave_01]

Merci pour les différentes informations.

Effectivement, il semble que le composant Crystal Reports attente le nom de l'imprimante. Je vais essayer cela et je vous tiens au courant.

[lave_01]

Effectivement le composant Crystal Reports ne prend pas d'office l'imprimante définie par défaut via TprintSetupDialog.

Ce composant a une propriété Printer qui permet de le redéfinir => merci à Papy214 pour le code qui m'a grandement aidé.

Voici le code pour changer l'imprimante dans ce composant :

Code :

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

crystal_viewer.Printer:= Printer.Printers[Printer.PrinterIndex];

Sachant que crystal_viewer est l'objet créé par le composant.

@SergioMaster : merci pour le lien mais cela donnait des informations sur l'ancien composant Crystal Report qui n'est plus suivi. Ce composant est basé sur la nouvelle version fournie par SAP. Le programmeur en a fait une dll pour accéder aux fonctions en Delphi. en effet, SAP a fait son composant pour .Net et Java uniquement