Discussion :

[PhilLU]

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

[Paul TOTH]

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

[sergio_is_back]

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