impression sur imprimante réseau via IP (BeginDoc)
Bonjour,
J'utilise le code suivant pour imprimer un document sur une imprimante réseau.
Code:
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 :calim2:
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 :help:
Phil