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 33 34 35 36 37 38 39 40 41
|
$_escape=chr(27);
($ligne_1 = $info{$num}{societe}) =~ s/null//gi;
($ligne_1_bis = $info{$num}{soc_compl}) =~ s/null//gi;
if ($Civilite eq '' and $prenom eq '' and $nom eq ''){
$ligne_2 ='';
}else{
$ligne_2 = "A l'attention de ".$Civilite." ".$prenom." ".$nom;
}
($ligne_3 = $compl_adress." ".$info{$num}{'adr_compl'}) =~ s/null//gi;
($ligne_4 = $info{$num}{'adresse'}) =~ s/null//gi;
($ligne_5 = $info{$num}{'bp_cidex'}) =~ s/null//gi;
($ligne_6 = $info{$num}{'code_postal'}." ".$info{$num}{'ville'}." ".$info{$num}{'cedex'}) =~ s/null//gi;
($ligne_7 = $info{$num}{'pays'}) =~ s/null|FRANCE//gi;
$_imprim = '';
$_imprim .=sprintf("%sE",$_escape); #Reset de l'imprimante.
$_imprim .=sprintf("%s&l0S",$_escape); #Mode simplex.
$_imprim .=sprintf("%s&l91A",$_escape); #Papier International C5 (162mm x 229mm)
$_imprim .=sprintf("%s&l1O",$_escape); #orientation portrait.
#$_imprim .=sprintf("%s&l2H",$_escape); #bac papier manuel.
$_imprim .=sprintf("%s&c1T",$_escape); #impression a l'horizontale.
$_imprim .=sprintf("%s(s5B",$_escape); # Gras
$_imprim .=sprintf("%s(s1p15v0s3b16602T",$_escape); #Police = ARIAL 15.
$_imprim .=sprintf("%s&a18R",$_escape); #On descend de ?? mm environ
$_imprim .=sprintf("%s&l12C",$_escape); #interligne =10/48 ieme de pouce
$_imprim .=sprintf("%s&a60C",$_escape); #positionne le curseur à ?? colonne du bord verticale
$_imprim .=sprintf("%s\n",$ligne_1);
if ($ligne_1_bis ne '' and $ligne_1_bis ne ' '){
$_imprim .=sprintf("%s&a60C",$_escape); #positionne le curseur à ?? colonne du bord verticale
$_imprim .=sprintf("%s\n",$ligne_1_bis);
}
if ($ligne_2 ne '' and $ligne_2 ne ' '){
$_imprim .=sprintf("%s&a60C",$_escape); #positionne le curseur à ?? colonne du bord verticale
$_imprim .=sprintf("%s\n",$ligne_2);
}
if ($ligne_3 ne '' and $ligne_3 ne ' '){
$_imprim .=sprintf("%s&a60C",$_escape); #positionne le curseur à ?? colonne du bord verticale
$_imprim .=sprintf("%s\n",$ligne_3);
} |
Partager