автор DO CASE
CASE prom=1 && струйный HP DJ400 A4'
p1=chr(27)+"(s3B" && жирный
p2=chr(27)+"(s0B" && щтмена жирного
p3=chr(27)+"(s12H" && 12 зн.дюйм
p4=chr(27)+"(s16.67H" && 17 зн.дюйм
p5=chr(27)+"(s10H" && 10 зн.дюйм
p6=chr(27)+"&l8D" && 8 стр.дюйм
p7=chr(27)+"&l6D" && 6 стр.дюйм
p8=chr(27)+"(s4V" && подстрочный
p9=chr(27)+"(s12V" && отмена подстрочного
p10=chr(27)+"(s1Q" && эконом.печать
p11=chr(27)+"(s2Q" && отмена эконом.печать
CASE prom=2 && Матричный A3'
p1=chr(27)+"G" && "¦Ёа­л©"
p2=chr(27)+"H" && ®в¬Ґ­ "¦Ёа­®Ј®"
p3=chr(27)+"M" && 12 §­.¤о©¬
p4=chr(15) && 17 §­.¤о©¬
p5=chr(18) && 10 §­.¤о©¬
p6=chr(27)+"0" && 8 бва.¤о©¬
p7=chr(27)+"2" && 6 бва.¤о©¬
p8=chr(27)+"S1" && Ї®¤бва®з­л©
p9=chr(27)+"T" && ®в¬Ґ­ Ї®¤бва®з­®Ј®
p10=chr(27)+"x0" && ќЄ®­®¬. ЇҐз вм
p11=chr(27)+"x1" && Ћв¬Ґ­ нЄ®­®¬. ЇҐз вЁ
CASE prom=3 && струйный Epson Styles 1000 A3'
p1=chr(27)+"G" && "¦Ёа­л©"
p2=chr(27)+"H" && ®в¬Ґ­ "¦Ёа­®Ј®"
p3=chr(27)+"M" && 12 §­.¤о©¬
p4=chr(15) && 17 §­.¤о©¬
p5=chr(18) && 10 §­.¤о©¬
p6=chr(27)+"0" && 8 бва.¤о©¬
p7=chr(27)+"2" && 6 бва.¤о©¬
p8=chr(27)+"S1" && Ї®¤бва®з­л©
p9=chr(27)+"T" && ®в¬Ґ­ Ї®¤бва®з­®Ј®
p10=chr(27)+"x0" && ќЄ®­®¬. ЇҐз вм
p11=chr(27)+"x1" && Ћв¬Ґ­ нЄ®­®¬. ЇҐз вЁ
CASE prom=4 && Лазерный HP A4
p1=chr(27)+'(s3B' && "¦Ёа­л©"
p2=chr(27)+'(s-2B' && ®в¬Ґ­ "¦Ёа­®Ј®"
p3=chr(27)+'&k4S' && 12 §­.¤о©¬
p4=chr(27)+'&k2S' && 17 §­.¤о©¬
p5=chr(27)+'&k0S' && 10 §­.¤о©¬
p6=chr(27)+'&l8.8D' && 8 бва.¤о©¬
p7=chr(27)+'&l6D' && 6 бва.¤о©¬
p8=chr(27)+'(s4V' && Ї®¤бва®з­л©
p9=chr(27)+'(s8.9V' && ®в¬Ґ­ Ї®¤бва®з­®Ј®
p10='' && ќЄ®­®¬. ЇҐз вм
p11='' && Ћв¬Ґ­ нЄ®­®¬. ЇҐз вЁ
ENDCASE

Это всё что я знаю, но работает...