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