[vb6] Stampa text box

[axsw]

Ciao raga
io ho 2 textBox, quando le mando in stampa uso printerCurrentY
printerCurrentX ed il risultato è questo.

  100.00 '1° TextBox
  1.00   '2° TextBox 
'come faccio ad avere il risultato inverso? cioè la stampa allineata a sinistra come sotto.
  100.00
    1.00

Grazie

[kalosjo]

devi fare una stringa a lunghezza fissa e mettere tanti spazi all'inizio quanti ne occorrono:

dim stringa as string
stringa=space(len("" & numero)-20) & numero
printer.print stringa

e così per ogni numero che devi stampare.

Ovviamente io ho messo 20, ma tu devi mettere quello che ti serve...

[axsw]

Innanzitutto grazie kalos
Probabilmente sino rinco ma non riesco a seguirti.
Se non ti disturbo puoi farmi un esempio + chiaro?

[kalosjo]

Claro....

Per allineare a destra più stringhe, devono essere di lunghezza uguale.

Quindi se io ho 10.00 e 100.00, devo metterle in due stringhe di larghezza uguale con tanti spazi all'inizio:

"bbbbbbbbbbbbbbbb10.00"
"bbbbbbbbbbbbbbb100.00"

dove con "b" indico blank (spazio vuoto)"

Come vedi i due numeri sono allineati a destra

Tutto dipende anche dal tipo di carattere, perchè la dimensione dell spazio è differente da quella di 0, tranne per il carattere "Courier"

[axsw]

ok è claro ma come ci arrivo a farlo da codice?
i numeri variano da 10 / 100.000

[kalosjo]

Il mio primo post rispondeva proprio a questo....

[axsw]

Kalosjo non funziona dove sbaglio?

Private sub cmdstampa_click()
 Dim stringa As String
 Dim t1 As Currency
  t1 = txt1.Text
  stringa = Space(Len("" & t1) - 20) & t1
  Printer.CurrentX = 8900
  Printer.CurrentY = 9350
  Printer.Print stringa
end sub

Mi evidenzia questa riga
stringa = Space(Len("" & t1) - 20) & t1
emi dice errore di runtime 5
Chiamata di argomento o ruotine non valida
help

[kalosjo]

Originariamente inviato da axsw
Kalosjo non funziona dove sbaglio?

Private sub cmdstampa_click()
 Dim stringa As String
 Dim t1 As Currency
  t1 = txt1.Text
  stringa = Space(Len("" & t1) - 20) & t1
  Printer.CurrentX = 8900
  Printer.CurrentY = 9350
  Printer.Print stringa
end sub

Mi evidenzia questa riga

emi dice errore di runtime 5
Chiamata di argomento o ruotine non valida
help

stringa = Space(20 - Len("" & t1)) & t1

[axsw]

Niente da fare Kalos
questo è il codice

  Dim stringa As String
  Dim t1 As Currency
  t1 = txtunitpr1.Text
  stringa = Space(20 - Len("" & t1)) & t1

E questa è la stampa tra l'altro stampa 2 volte

 239,4 239,4 '1°a riga
       2076,3'2°a riga
'Invece io vorrei
 239,4
2076,3

Incredibile questo è l'ultimo problema da risolvere dopodochè il mio lavoro è finito.
Grazie lo stesso Kalos

[kalosjo]

Posta tutta la parte della stampa....