Oggetto Printer...

[chipdb]

Volevo chiedere una cosa...

E' possibile dire all'oggetto Printer di copiare il contenuto di una label così com'é, con il WordWrap Attivato?

[verodami]

non saprei bisognerebeb provare ..
comunaue credo che se imposti anche L'autosize a true ..dovrebbe andar bene ...
Ciao

[vonkranz]

Se tu fai:

printer.print Label.Caption

stampi il contenuto "in caratteri" della label:
Anche se vedi solo 1 carattere a video, quello che stampi e' tutto il valore della prop. Caption, quindi tutto quello che c'e' scritto.

[chipdb]

Grazie ma li c'ero arrivato :gren:

Il problema é: come faccio a fare in modo che quando nella label va a capo, anche nella pagina stampata vada capo?

[vonkranz]

In questo caso lo devi fare tu manualmente, inserendo un vbCrLf quando vuoi andare a capo.
Non mi pare ci sia modo per fare quello che dici.

[Janx]

il metodo che per ora mi viene in mente è che ti puoi impostare un numero di caratteri, dopo il quale vai a capo, come ha scritto vonkranz, con vbCrLf.
Cos' fai una scansione sulla stringa, e la spezzi ogni TOT caratteri, inserendo un vbCrLf.
Ciao.

[chipdb]

A quello avevo pensato anch'io... Il problema sta nel fatto che non posso spezzare una parola a metà!

Es.

Testo = Voglio un gelato (che cavolata...)

non posso fare in modo che venga fuori

Voglio un ge
lato

deve venire fuori

Voglio un
gelato

Capito?

[vonkranz]

Allora perche' non provi a cercare lo spazio.
Decidi quanti caratteri vuoi stampare, ti posizioni sulla stringa da stampare e vedi se in qeul punto c'e' uno spazio, se non c'e', vai avanti di 1 in 1 finche' non lo trovi, poi vai a capo e continui..

una cosa del tipo

s="Voglio il gelato" ':D
for t=1 to len (s)
   if t>7 and mid(s,t,1)=" "then
     printer.print s1
     s1=""
   else
     s1=s1+mid(s,t,1)
   end if
next t
if trim(s1)><"" then printer.print s1
printer.enddoc

[verodami]

Originariamente inviato da vonkranz
Allora perche' non provi a cercare lo spazio.
Decidi quanti caratteri vuoi stampare, ti posizioni sulla stringa da stampare e vedi se in qeul punto c'e' uno spazio, se non c'e', vai avanti di 1 in 1 finche' non lo trovi, poi vai a capo e continui..

una cosa del tipo

s="Voglio il gelato" ':D
for t=1 to len (s)
   if t>7 and mid(s,t,1)=" "then
     printer.print s1
     s1=""
   else
     s1=s1+mid(s,t,1)
   end if
next t
if trim(s1)><"" then printer.print s1
printer.enddoc

E' perfetto l' ho provato funziona che è una meraviglai ..grazie serviva anche a me! :gren: :gren:
Von ..quante cose sai?!?!?

[chipdb]

E' esattamente quello a cui avevo pensato. Semplicemente non mi veniva l'algoritmo...

Comunque sia l'ho dovuto adattare alle mie esigenze, e dopo 10 tentativi di stampa ci sono riuscito. Grazie e bye