[VB6] Stampare testo multilinea

[stee]

Ciao a tutti, avrei un problemino.....
Devo stampare una semplice textbox con la proprietà Multiline impostata a True.
Il problema, è che devo lasciare un certo margine dal foglio, sia sulla coordinata x che sulla coordinata y. A questo proprosito ultilizzo le proprietà CurrentX e CurrentY dell'oggetto Printer come segue:

On Error GoTo errore
Printer.ScaleMode = 7
Printer.CurrentX = 2.5
Printer.CurrentY = 2
Printer.FontSize = 20
Printer.Print Text1.Text
Printer.EndDoc
Exit Sub
errore:
MsgBox "Impossibile comunicare con la stampante", vbCritical

Il problema è che la prima linea della txtBox viene correttamente stampata lontana dal margine sinistro, tutte le altre, invece, risultano a filo con il foglio, tipo così:

| oggi è una bella giornata
|di sole
|
|

Dove sbaglio?
Grazie in anticipo.
Ste

[alka]

Ho spostato la discussione all'interno del forum dedicato a Visual Basic (VBx, VBA, ...) e ai linguaggi per .NET Framework (VB.NET, C#, ...).

In futuro, poni in questo forum le domande relative a questi linguaggi.

Ciao!

[stee]

Ops, scusa alka, devo ancora abituarmi all'organizzazione del nuovo forum.....
Ste

[stee]

ehm....Qualcuno è in grado di darmi qualche dritta?
Non chiedo necessariamente codice già fatto, ma solo di capire un po' dove sbaglio.......
Grazie!
Ste

[oregon]

Devi separare tutte le linee e inviarle in stampa impostando il CurrentX prima di ogni invio.

[stee]

mmmh separare le righe.....devo quindi usare un ciclo for, giusto?
Ste

[oregon]

Un qualsiasi ciclo ...

[stee]

Ciao, ho provato a guardare in rete se c'era qualche cosa ma non ho trovato nulla. Il mio problema infatti, nel fare il ciclo, è questo:
come indicare ogni singola riga all'oggetto printer così da dirgli, ad ognuna di queste, l'allineamento che deve tenere dal margine sinistro visto che non lo mantiene?
Ste

[oregon]

Puoi suddividere il testo tramite la funzione Split

Dim line() As String

line = Split(Text1.Text, vbcrlf)

e poi scandire in un ciclo gli elementi dell'array line

[stee]

boh, non riesco a concludere niente.....proverò a mettere tutto in un'etichetta......
Grazie comunque.
Ciao!
Ste