Discussion :

[Rhapsödie]

Bonjour à tous,

je suis confronté à une problématique d'impression.
Je travail avec l'aide d'un script perl qui nous permait d'imprimer des tickets, ce script a été écrit il y a longtemps ... dans une autre galaxie ou pas.
Ce script fonctionne avec des imprimantes connectées par liaison série.

Le temps faisant les imprimantes ont évolué et sont désormais en USB

voici le morceau du script actuel servant à l'impression :

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
21
22
23
24
25
26
27
28
29
30
31
32
use strict;
 
my ($fic_imp) = 'C:\perl\essail\fichier.txt'; #fichier à imprimer
 
DEB:
 
    my $Buffer="";
 
    if(-e "$fic_imp") {
		open(LF,"<$fic_imp") || die "Cannot open fichier.txt : $!\n";
		read(LF,$Buffer,10000);
 
		print("contenu = $Buffer\n");
		close (LF) || die "can't close fichier.txt: $!";
 
    IMPRIME($Buffer);
 
		       }
 
sub IMPRIME {
    my(@liste)=@_;
 
	print "liste = @liste\n";
	open (F,">com1:") || die "cannot open com1 port \n";
 
		print F "@liste\n";
 
	close F;
 
			}
 
FIN:

Ma question étant comment déclarer l'imprimante comme étant une imprimante USB raccordée à un port USB et non plus au COM1?

Cordialement

[JeanMi3000]

à la ligne 24, je tenterai :

Code :

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

open (F,">lpt1:") || die "cannot open com1 port \n";

ou

Code :

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

open (F,">usb001:") || die "cannot open com1 port \n";

[Rhapsödie]

Bonjour JeanMi3000,

merci pour ta réponse bien essayé mais raté malheureusement.
J'ai essayé plusieurs synthaxes mais rien ne veux...

D'autres propositions?

Belle journée

[djibril]

Bonsoir,

C'est une question que je ne me suis jamais posé, c'est-à-dire envoyer des données directement vers une imprimante.
Je n'ai pas de suite une imprimante sous la main, mais en cherchant rapidement, as-tu testé quelques modules ?
Exemple :
Net::Printer ;
Net::LPR.

[djibril]

Voici un test chez moi qui fonctionne :

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
21
22
23
24
25
#!/usr/bin/perl
use strict;
use warnings;
use Net::Printer;
 
# Mon fichier à imprimer
my $mon_fichier    = 'C:/perl/essail/fichier.txt';
my $nom_imprimante = 'Brother MFC-9140CDN Printer';
my $ip_imprimante  = '192.168.1.237';                 # Ou nom dns
my $port           = 515;                             # port par défaut
 
if ( -e $mon_fichier ) {
 
	# Création de mon imprimante
	my $lineprinter = new Net::Printer(
		filename    => $mon_fichier,
		printer     => $nom_imprimante,
		server      => $ip_imprimante,
		port        => $port,
		lineconvert => "YES"
	);
 
	# Impression du fichier
	$lineprinter->printfile();
}