[VB6] Printer - Andare a capo

[hunt]

ciao ragazzi...

Dim text as string

text = "Ciao...mi chiamo Luigi e studio Ragioneria...ect...ect"

if Printer.TextWidth(text) = Printer.TextWidth(text)\2 then
   'Come faccio per farlo andare a capo??? 
end if

Printer.Print text

Praticamente vorrei che quando arriva alla metà della lunghezza del text, va a capo!

Qualkuno sa come si fa? Grazie...

[Melly]

Originariamente inviato da hunt
ciao ragazzi...

Dim text as string

text = "Ciao...mi chiamo Luigi e studio Ragioneria...ect...ect"

if Printer.TextWidth(text) = Printer.TextWidth(text)\2 then
   'Come faccio per farlo andare a capo??? 
end if

Printer.Print text

Praticamente vorrei che quando arriva alla metà della lunghezza del text, va a capo!

Qualkuno sa come si fa? Grazie...

prova ad aggiungere vblf dove vuoi andare a capo

[buba88]

nn ho mai usato l'oggetto printer però penso che per andare a capo basterebbe aggiunger il carattere chr(10)

text = text & chr(10)

[Sypher]

Originariamente inviato da buba88
nn ho mai usato l'oggetto printer però penso che per andare a capo basterebbe aggiunger il carattere chr(10)

text = text & chr(10)

Credo vada bene anche vbCrLf no?

[buba88]

x sipher :
si penso che sia praticamente la stessa cosa

[hunt]

Il punto non è che nn riesco ad andare a capo, perchè basta fare Printer.CursorY = Printer.CursorY + 250, io vado a capo tranquillamente.

Il problema sta nel fatto che non so come dirgli al programma di riprendere il testo quando va a capo!

[hunt]

:quote:

[hunt]

:quote:

[Luciano79]

Ciao,
il metodo è abbastanza semplice:
l'obiettivo tuo è soltanto quello di ottenere due stringhe,
la prima e la seconda metà; una volta ottenute puoi stamparle dove
vuoi.
Ecco il codice per ottenere le due stringhe:

'------
dim StrApp as string
dim Index as integer
dim Stringa1, Stringa2 as string
For Index = 1 to Len(StringaInput)
StrApp=StrApp & Mid(StringaInput,Index,1)
If Printer.TextWidth(StrApp) >= (Printer.TextWidth(StringaInput)/2) Then
Stringa1=StrApp
Stringa2=Mid(StringaInput,Index+1,)
Exit For
End If
Next Index
'-------

Ovviamente Stringa1 è la prima riga, Stringa2 la seconda.
Sei costretto ad utilizzare il ciclo FOR perchè ovviamente la lunghezza del testo varia in base al font, non ti puoi quindi basare solo sul numero di caratteri.
Fammi sapere se funziona
Ciao
:adhone: