🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Aiuto Stampa i VB6 Urgente Help me Please!!!

#1017
From: AP
Date: Thu, 16 Dec 2004 17:37
77 lines
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-mail

Show 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]