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

  1. #1
    Membre régulier
    Homme Profil pro
    Owner
    Inscrit en
    décembre 2004
    Messages
    373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Owner
    Secteur : Santé

    Informations forums :
    Inscription : décembre 2004
    Messages : 373
    Points : 114
    Points
    114
    Par défaut impression sur imprimante réseau via IP (BeginDoc)
    Bonjour,
    J'utilise le code suivant pour imprimer un document sur une imprimante réseau.
    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
     
    // dans config.ini
    PrinterName=HP Officejet 6500 E710n-z
    ; ou \\192.168.1.27:3910
    ; ou http://192.168.1.27:3910
    ...
     
    with Printer do
        try
        printer.Title:='Toxico';
        Printer.PrinterIndex := Printer.Printers.IndexOf(PrinterName);
        BeginDoc;
          //Re:=Rect(0,0,2479,3508);
          ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch ;
          ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch ;
          Re := Rect(0, 0, round(Image2.Picture.Width * ScaleX * 0.365), round(Image2.Picture.Height * ScaleY * 0.335) );     //0.322 0.11
          Canvas.StretchDraw(Re, Image2.Picture.Graphic); // **
        finally
        EndDoc;
        end;
    Chez moi, pas de problème, mais sur un réseau équipé de plus de 1000 imprimantes malheureusement, pas
    J'ai testé http:\\192.168.1.27:3910 et \\192.168.1.27:3910
    Comment résoudre le nom de l'imprimante via son adresse IP???
    Merci pour vos aides
    Phil

  2. #2
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    novembre 2002
    Messages
    7 970
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2002
    Messages : 7 970
    Points : 25 839
    Points
    25 839
    Par défaut
    attention une imprimante réseau ça s'installe, l'adresse ip ne suffit pas...sauf à utiliser IPP si mon souvenir est bon, mais dans ce cas tu soumets le document à l'imprimante, et tu ne passes pas par un canevas...pour utiliser un canvas, c'est que l'imprimante est déclarée dans Windows
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  3. #3
    Expert confirmé
    Homme Profil pro
    Responsable informatique, développeur tout-terrain
    Inscrit en
    juin 2004
    Messages
    842
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Responsable informatique, développeur tout-terrain
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juin 2004
    Messages : 842
    Points : 4 100
    Points
    4 100
    Par défaut
    Citation Envoyé par PhilLU Voir le message
    Bonjour,
    J'utilise le code suivant pour imprimer un document sur une imprimante réseau.
    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
     
    // dans config.ini
    PrinterName=HP Officejet 6500 E710n-z
    ; ou \\192.168.1.27:3910
    ; ou http://192.168.1.27:3910
    ...
     
    with Printer do
        try
        printer.Title:='Toxico';
        Printer.PrinterIndex := Printer.Printers.IndexOf(PrinterName);
        BeginDoc;
          //Re:=Rect(0,0,2479,3508);
          ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch ;
          ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch ;
          Re := Rect(0, 0, round(Image2.Picture.Width * ScaleX * 0.365), round(Image2.Picture.Height * ScaleY * 0.335) );     //0.322 0.11
          Canvas.StretchDraw(Re, Image2.Picture.Graphic); // **
        finally
        EndDoc;
        end;
    Chez moi, pas de problème, mais sur un réseau équipé de plus de 1000 imprimantes malheureusement, pas
    J'ai testé http:\\192.168.1.27:3910 et \\192.168.1.27:3910
    Comment résoudre le nom de l'imprimante via son adresse IP???
    Merci pour vos aides
    Phil
    Si tu veux utiliser PrinterName=HP Officejet 6500 E710n-z, il faut que ce nom soit connu de Windows, il faut donc ajouter cette imprimante sur ta station de travail... C'est différent sur un réseau avec un serveur d'impression et/ou un contrôleur de domaine LDAP qui s'occupe de la résolution de noms et des files d'impressions sur les postes de travail... Dans tous les cas, la TStrings Printer.Printers ne contient que les imprimantes connues du poste de travail

Discussions similaires

  1. Réponses: 5
    Dernier message: 11/08/2017, 17h45
  2. [VPN] Impression sur imprimante sur autre réseau
    Par alex_m94 dans le forum Dépannage et Assistance
    Réponses: 0
    Dernier message: 14/01/2016, 17h40
  3. Forcer impression sur imprimante réseau
    Par drake56 dans le forum C++
    Réponses: 1
    Dernier message: 24/02/2014, 16h21
  4. Impression sur Imprimante bureautique via Bluetooth ou USB
    Par kbach dans le forum Windows Mobile
    Réponses: 3
    Dernier message: 30/10/2007, 21h36
  5. Impression sur imprimante réseau
    Par kinokkyo dans le forum Général VBA
    Réponses: 2
    Dernier message: 07/05/2007, 13h41

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