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 :
Ma question étant comment déclarer l'imprimante comme étant une imprimante USB raccordée à un port USB et non plus au COM1?
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:
Cordialement
Partager