Article View: free.it.visual-basic
Article #1017Aiuto Stampa i VB6 Urgente Help me Please!!!
From: AP
Date: Thu, 16 Dec 2004 17:37
Date: Thu, 16 Dec 2004 17:37
77 lines
4075 bytes
4075 bytes
AIUTATEMI GRAZIE MILLE!!!
Salve a tutti,
scrivo in quanto ho un problemino (forse grosso) in vb.
Sono un neo programmatore in vb ed ancora ho tantissimo da imparare.
Ho fatto una piccola applicazione dove inserendo quantit�, prezzo e %iva mi
calcola l'imponibile e il totale.
Il mio problema � che non riesco a far allineare le colonne degli importi a
destra nella stampa (come Prezzo, Importo e Imposta).
Chiedo se qualche programmatore per favore possa aiutarmi, se ha 5 minuti di
tempo libero. Magari con un esempio, in modo che poi faccio tutto il resto.
Ringrazio sin da ora e auguro una buona programmazione a tutti
.
Questo che segue � il codice dentro il bottone STAMPA
Private Sub Command1_Click()
Printer.FontSize = 11
Printer.Print
Printer.Print Tab(3);
"----------------------------------------------------------------------" _
;
"-----------------------------------------------------------------------------------"
Printer.Print
Printer.Print Tab(8); "Q.TA'"; Tab(23); "DESCRIZIONE"; Tab(61);
"PREZZO"; Tab(85); "IVA%"; Tab(106); "IMPORTO"
Printer.Print Tab(3);
"----------------------------------------------------------------------" _
;
"-----------------------------------------------------------------------------------"
Printer.Print Tab(8); Text0.Text; Tab(17); Combo1.Text; Tab(59);
Text9.Text; Tab(80); Combo10.Text; Tab(85); Label1.Text; Tab(103);
Label16.Text
Printer.Print Tab(8); Text1.Text; Tab(17); Combo2.Text; Tab(59);
Text10.Text; Tab(80); Combo11.Text; Tab(85); Label2.Caption; Tab(103);
Label10.Caption
Printer.Print Tab(8); Text2.Text; Tab(17); Combo3.Text; Tab(59);
Text11.Text; Tab(80); Combo12.Text; Tab(85); Label3.Caption; Tab(103);
Label11.Caption
Printer.Print Tab(8); Text3.Text; Tab(17); Combo4.Text; Tab(59);
Text12.Text; Tab(80); Combo13.Text; Tab(85); Label4.Caption; Tab(103);
Label12.Caption
Printer.Print Tab(8); Text4.Text; Tab(17); Combo5.Text; Tab(59);
Text13.Text; Tab(80); Combo14.Text; Tab(85); Label5.Caption; Tab(103);
Label13.Caption
Printer.Print Tab(8); Text5.Text; Tab(17); Combo6.Text; Tab(59);
Text14.Text; Tab(80); Combo15.Text; Tab(85); Label6.Caption; Tab(103);
Label14.Caption
Printer.Print Tab(8); Text6.Text; Tab(17); Combo7.Text; Tab(59);
Text15.Text; Tab(80); Combo16.Text; Tab(85); Label7.Caption; Tab(103);
Label15.Caption
Printer.Print Tab(8); Text7.Text; Tab(17); Combo8.Text; Tab(59);
Text16.Text; Tab(80); Combo17.Text; Tab(85); Label8.Caption; Tab(103);
Label16.Caption
Printer.Print Tab(8); Text8.Text; Tab(17); Combo9.Text; Tab(59);
Text17.Text; Tab(80); Combo18.Text; Tab(85); Label9.Caption; Tab(103);
Label17.Caption
Printer.Print
Printer.Print Tab(3);
"----------------------------------------------------------------------" _
;
"-----------------------------------------------------------------------------------"
Printer.EndDoc
End Sub
Technical Details
Message-ID:
<cJjwd.26137$Lg7.833440@twister1.libero.it>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!solnet.ch!solnet.ch!news-zh.switch.ch!switch.ch!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Thread: f94ee,a1f0025110f8e906,start X-Google-Attributes: gidf94ee,public X-Google-Language: ITALIAN,ASCII Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news.glorb.com!solnet.ch!solnet.ch!news-zh.switch.ch!switch.ch!news.mailgate.org!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail From: "AP" <passero75@libero.it> Newsgroups: free.it.visual-basic Subject: Aiuto Stampa i VB6 Urgente Help me Please!!! Lines: 79 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-RFC2646: Format=Flowed; Original X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 Message-ID: <cJjwd.26137$Lg7.833440@twister1.libero.it> Date: Thu, 16 Dec 2004 17:37:12 GMT NNTP-Posting-Host: 62.98.172.187 X-Complaints-To: abuse@inwind.it X-Trace: twister1.libero.it 1103218632 62.98.172.187 (Thu, 16 Dec 2004 18:37:12 MET) NNTP-Posting-Date: Thu, 16 Dec 2004 18:37:12 MET Organization: [Infostrada]