IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Imprimer des pdf sur plusieurs imprimantes


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 8
    Par défaut Imprimer des pdf sur plusieurs imprimantes
    Bounjour,

    En ce moment je developpe un logiciel (en Delphi 7) :
    il consiste à distribuer des documents pdf sur différentes imprimantes (locale, réseau ou partagée).
    Mon problème est que je ne parviens pas à changer l'imprimante pour l'impression.
    J'utilise la fonction API : ShellExecute pour imprimer le pdf.

    Merci pour votre aide.

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 931
    Billets dans le blog
    6
    Par défaut
    je pense que ShellExec prend l'imprimante active ; il faudrait donc que tu sélectionnes celle que tu veux en la rendant active avnt de lancer l'impression : regarde du côté de l'unité Printers qui gère la liste...
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 8
    Par défaut
    Apparement ShellExecute prend l'imprimante par defaut de windows.

    j'ai essayé avec Printer sans aucun resultat.


    Donc : comment redefinir l'imprimante par defaut avec Delphi ou autre commande AP ?

  4. #4
    Expert confirmé
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    11 132
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 11 132
    Par défaut
    Yep !

    Une combobox (cbb) sur une form, et
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    procedure TForm1.FormActivate(Sender: TObject);
    begin
      cbb.Items := Printer.Printers;
      cbb.Text  := Printer.Printers[Printer.PrinterIndex];
    end;
     
    procedure TForm1.cbbCloseUp(Sender: TObject);
    begin
      Printer.PrinterIndex := cbb.ItemIndex;
    end;
    Sans oublier Printers dans le Uses.

    HTH,
    JP

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 8
    Par défaut
    Merci pour ces reponses.
    Mais je ne parviens pas à utiliser Printer.

    Ca : ça fonctionne :
    (L'impression se fait sur les 2 imprimantes)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
      procedure TForm1.Button2Click(Sender: TObject);
         begin
           Printer.PrinterIndex := 1;
           Printer.BeginDoc;
             // contenu a imprimer
           Printer.EndDoc;
     
           Printer.PrinterIndex := 2;
           Printer.BeginDoc;
            // contenu a imprimer
           Printer.EndDoc;
         end;
    Ca : ça ne fonctionne pas :
    (L'impression se fait sur l'imprimante par défaut !)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
         procedure TForm1.Button2Click(Sender: TObject);
         begin
           Printer.PrinterIndex := 1;
           shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);
     
           Printer.PrinterIndex := 2;
           shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);
    end;
    Voila mon probleme.

    Ou s'il y a une autre facon l'imprimer un pdf avec l'unite Printers ?

  6. #6
    Expert confirmé
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    11 132
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 11 132
    Par défaut
    Yep !

    Ca : ça fonctionne :
    (L'impression se fait sur les 2 imprimantes)
    Je suppose qu'il faut lire "se fait sur l'une ou l'autre imprimante" ?


    D'autre part,

    shellexecute(0,'PRINT','C:\ESSAI.pdf',nil,nil, SW_HIDE);
    Qu'est-ce qui se cache sous ce 'PRINT' ?

    JP

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. solution native pour imprimer un pdf sur une imprimante en Java
    Par thierry_b dans le forum API standards et tierces
    Réponses: 6
    Dernier message: 04/05/2014, 03h00
  2. [XL-2007] Imprimer un fichier sur plusieurs imprimantes
    Par Ulysse_64 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 22/06/2011, 09h07
  3. [WD12] Imprimer un pdf sur imprimante sans l'ouvrir
    Par zouzoukha dans le forum WinDev
    Réponses: 16
    Dernier message: 29/01/2010, 10h05
  4. imprimer un PDF sur une imprimante non par défaut
    Par bremer dans le forum Langage
    Réponses: 5
    Dernier message: 25/12/2007, 22h46
  5. [Swing] Imprimer des JeditorPane sur plusieurs pages ?
    Par bilou_lelapinou dans le forum AWT/Swing
    Réponses: 22
    Dernier message: 29/11/2006, 22h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo