Comment imprimer du text verticallemnt ?

aminert2100 Messages postés 82 Date d'inscription dimanche 15 juin 2003 Statut Membre Dernière intervention 8 mai 2008 - 6 juil. 2005 à 16:01
rayjul Messages postés 13 Date d'inscription jeudi 2 décembre 2004 Statut Membre Dernière intervention 24 septembre 2008 - 22 juil. 2005 à 08:11
Comment imprimer du text verticallemnt ?
svp pa comme ca
c
o
m
c
a

Eest or west VB is the best

1 réponse

rayjul Messages postés 13 Date d'inscription jeudi 2 décembre 2004 Statut Membre Dernière intervention 24 septembre 2008
22 juil. 2005 à 08:11
x$ ="vertical"
for i=1 to len(x$)
s$=mid(x$,i,1)
printer.currentx=567 'on est donc à 1 cm du bord gauche de la feuille
printer.currenty=567+280*i ' 280 twips entre une ligne et la suivante
printer.print s$
next i
printer.enddoc

evajul
0