🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1014

Re: Aiuto allinemanto su carta

#1014
From: ~Incoming
Date: Tue, 14 Dec 2004 15:55
63 lines
3288 bytes
Ciao, AP!
hai scritto xXZtd.15183$Zk.259517@twister2.libero.it
Thu, 09 Dec 2004 15:12:29 GMT:


[skip]

 > ........� solamente per un fatto estetico
 > Per essere allineati a destra come posso fare?
 > Mi suggerite qualche cosa?
yessss

stampi il form o hai scritto la routin che stampa le righe?
nel secondo caso usa caratteri fissi (es. courier),
(per capire come farei; sul tuo outlook
spunta la voce di menu' Visualizza>Carattere>Fisso)


         1         2         3         4         5         6
123456789012345678901234567890123456789012345678901234567890
       13car|       13car|    10car|    10car|       14car |

Quantit�     Descrizione      Prezzo       Iva       Importo
txt1         text2              txt3      txt4        label1
txt5         text8             txt11     txt14        label2
txt6         text9             txt12     txt15        label3
txt7         text10            txt13     txt16        label4

(allora come vedi sulla tua tabella ho aggiunto una sorta di
righello x caratteri, diciamo 60 per tutte le colonne,
ho anche diviso le varie colonne e' chiaro che tu farai come vuoi)

ora creo le prime due righe (piu' facile fare l'esempio)
(qua e' la variabile stringa ="quantita'", des per
"descrizione" ecc, ok?)

1�
riga=qua & space(13- len(qua)) & des & space(13 - len(des)) &
     space(10 - len(pre)) & pre & space(10 - len(iva)) & iva &
     space(14 - len(impo)) & impo
printer.print riga

2�
riga=txt1 & space(13- len(txt1)) & txt2 & space(13 - len(txt2)) &
     space(10 - len(txt3)) & txt3 & space(10 - len(txt4)) & txt4 &
     space(14 - len(lbl1)) & lbl1
printer.print riga
ecc
ecc
ecc

come vedi, stabiliti i caratteri per colonna, non ti resta che
aggiungere degli spazi, se dopo, allinei a sinistra, prima a destra.

se poi usi bene le variabili con un ciclo stampi tutto!

p.s.
puoi stampare anche con caratteri non fissi,
ma devi fare piu' operazioni, cioe' le voci le devi stampare
singolarmente e calcolare di volta in volta la posizione.


Cordialita', ~Incoming.
Technical Details
Message-ID: <cpnl7d$r8l$1@lacerta.tiscalinet.it>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!newsread.com!newsprint.newsread.com!news.glorb.com!feeder.enertel.nl!nntpfeed-01.ops.asmr-01.energis-idc.net!216.196.110.149.MISMATCH!border2.nntp.ams.giganews.com!nntp.giganews.com!tiscali!newsfeed1.ip.tiscali.net!213.205.37.207.MISMATCH!draco.tiscalinet.it!not-for-mail
References: <xXZtd.15183$Zk.259517@twister2.libero.it>

Show Full Headers
Complete Article Headers
X-Google-Thread: f94ee,4473bc4848b139bc
X-Google-Attributes: gidf94ee,public
X-Google-Language: ITALIAN,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!newsread.com!newsprint.newsread.com!news.glorb.com!feeder.enertel.nl!nntpfeed-01.ops.asmr-01.energis-idc.net!216.196.110.149.MISMATCH!border2.nntp.ams.giganews.com!nntp.giganews.com!tiscali!newsfeed1.ip.tiscali.net!213.205.37.207.MISMATCH!draco.tiscalinet.it!not-for-mail
From: "~Incoming" <speriamo.che.me.l@cavo.it>
Newsgroups: free.it.visual-basic
Subject: Re: Aiuto allinemanto su carta
Date: Tue, 14 Dec 2004 16:55:28 +0100
Organization: Tiscali Spa
Lines: 65
Message-ID: <cpnl7d$r8l$1@lacerta.tiscalinet.it>
References: <xXZtd.15183$Zk.259517@twister2.libero.it>
NNTP-Posting-Host: ppp-62-11-116-238.dialup.tiscali.it
X-Trace: lacerta.tiscalinet.it 1103058989 27925 62.11.116.238 (14 Dec 2004 21:16:29 GMT)
X-Complaints-To: abuse@tiscali.it
NNTP-Posting-Date: 14 Dec 2004 21:16:29 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
FL-Build: Fidolook 2002 (SL) 6.0.2800.86 - 14/6/2003 22:16:25
X-Comment-To: AP