Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Textbox in VERTICALE dal basso verso l'alto

41 views
Skip to first unread message

RobertoA

unread,
Jul 9, 2018, 5:53:53 AM7/9/18
to
Le textbox possono essere mpostate per stampare in vrticale
Sapete sia possibile stampare in verticale con inizio dal basso verso
l'alto?
(il contrrio di come avviene ora) ?

@Alex

unread,
Jul 9, 2018, 6:01:06 AM7/9/18
to
No, ma puoi fare una Bitmap in memoria e sostituirla a quello che vuoi stampare con un Controllo Immagine... è abbastanza semplice, disegni in un ContextDevice il Testo ed alla fine della parte grafica aggiungi l'Header delle BMP e lo assegni al controllo Immagine.
Ovviamente tutto con le API.

Altrimenti usi il Codice di LEBANS

@Alex

RobertoA

unread,
Jul 9, 2018, 10:05:10 AM7/9/18
to
Fino "abbastanza semplice" ho capito bene, poi ho sentito "ehhhh????"
Elora tre domande sgorgano spontanee
1- come si 'disegna' in un contextDevice?
2- "alla fine della parte grafica" di che cosa (forse del contextDevice
di prima)?
3- Come si assegna l'header di una bmp (sempre ammesso di sapere cosa
sia l'header di una bmp) ad un controllo immagine?


GiorgioDaPrato

unread,
Jul 9, 2018, 10:05:47 AM7/9/18
to
Il giorno lunedì 9 luglio 2018 11:53:53 UTC+2, RobertoA ha scritto:
se fosse che avessi capito:

può risolvere il reverse della stringa ?
(mi sembra ci sia una funzione che lo fa,
da adoperare ovviamente solo per il report)

RobertoA

unread,
Jul 9, 2018, 10:17:10 AM7/9/18
to
E dov'e' sta funzione?
Parlo per Access 2013
O qualcosa di esterno in vba?

@Alex

unread,
Jul 9, 2018, 10:35:26 AM7/9/18
to
In effetti non è così semplice...

Apri un Hdc(Context Device) basato sul DeskTop, ovviamente in Memoria, e in questo puoi disegnare... creando delle Immagini DIB alle quali però devi aggiungere dei BYTE(40 per la precisione) che rappresentano l'Header affinchè venga interpretata come BitMap...

Senza fare esempi, che non è facile fare, in questo DEMO, trovi TUTTO il codice che lo fa... nella Classe [clsItem] di questo Demo:

http://mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=290.html

In sostanza sfrutta i controlli Immagine, per manipolare l'immagine stessa in Memoria, e rimetterla a suo posto.

Ovviamente non funziona più con i sistemi 64Bit...

@Alex

BFS

unread,
Jul 9, 2018, 10:42:22 AM7/9/18
to
se hai una etichetta pippo nel tuo report
etichetta larga per contenere un carattere di larghezza e n di altezza
potresti usare questo trucco

Dim stringa As String
Dim stringaV As String
stringa = "scrivimi al contrario"
While Not Len(stringa) = 0
stringaV = stringaV & Right(stringa, 1) & vbCrLf
stringa = Left(stringa, Len(stringa) - 1)

Wend
Me.pippo.Caption = stringaV

ciao
BFS

GiorgioDaPrato

unread,
Jul 9, 2018, 10:53:27 AM7/9/18
to

> E dov'e' sta funzione?
> Parlo per Access 2013
> O qualcosa di esterno in vba?

Function StrReverse(Expression As String) As String

https://www.w3schools.com/sql/func_msaccess_strreverse.asp

c'è da Access 2000

RobertoA

unread,
Jul 9, 2018, 11:01:09 AM7/9/18
to
Ahhh bella questa
Non conossievo
Pero', se e' come penso il reverse della stringa
"Va che bello"
diventerebbe
"olleb ehc aV"
E la seconda non la puoi leggere da destra verso sinistra
Come servirebbe a me, per leggere dal basso verso l'alto la scritta

@Alex

unread,
Jul 9, 2018, 11:03:34 AM7/9/18
to
Ma Giorgio... scusa, hai provato il risultato grafico...?
Qualche cosa non mi torna... le lettere come la P ad esempio chi le SPECCHIA...?

Il Reverse della Stringa, anche in Verticale non è un risultato accettabile...

Magari ho capito male io...

@Alex

GiorgioDaPrato

unread,
Jul 9, 2018, 11:20:58 AM7/9/18
to
in effetti, molto semplicemente,
avevo prefigurato questa situazione:

P
i
e
t
r
o

e

P
a
o
l
o

che diventa questo

o
l
o
a
P

e

o
r
t
e
i
P

se la questione era solo quella di invertire il senso di lettura
utilizzando la forzatura della disposizione verticale delle lettere
che però non so se mantiene il risultato per qualsiasi lunghezza di stringa
(non ho presente le proprietà, anche aggiuntive, di questa forzatura)
Questo StrReverse lo fa (farebbe),

e questa disposizione la si può ottenere con la ricomposizione della stringa
segnalata da BFS

Ammammata

unread,
Jul 9, 2018, 11:34:34 AM7/9/18
to
Il giorno Mon 09 Jul 2018 12:08:34p, *RobertoA* ha inviato su
it.comp.appl.access il messaggio news:phvbbf$1bse$1...@gioia.aioe.org. Vediamo
cosa ha scritto:

> Sapete sia possibile stampare in verticale con inizio dal basso verso
> l'alto?
>

se tutto quello che hanno scritto dovesse fallire, ci sono font "capovolti"
per ottenere quello che vuoi, con un po' di maneggio dei testi, ma questa
sarebbe la parte difficile ;)

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>> http://www.bb2002.it :) <<<<<
........... [ al lavoro ] ...........

GiorgioDaPrato

unread,
Jul 9, 2018, 11:44:24 AM7/9/18
to
AGGIUNTA

e comunque, abbinando instr (per riconoscere la posizione del carattere separatore fra le parole di una stringa) e magari anche strReverse
(utile anche per questo scopo)

si arriva ad ottenere una cosa di questo genere:
da->>

SS.
Pietro
e
Paolo

a->>
Paolo
e
Pietro
SS.

ribadisco però che non ho presente come far "rendere bene" la disposizione verticale, penso che aiuti molto il carattere NewLine (vbCrLf)

oppure (mah)
da->>
SS. Pietro e Paolo

a->>
Paolo e Pietro SS.

che, appunto, non mi sembra gran cosa !

@Alex

unread,
Jul 9, 2018, 1:30:33 PM7/9/18
to
Nel mio intendimento il risultato da ottenere sarebbe come impostare il Verticale e ruotarlo di 180° cosa che non si avvicina minimamente a quanto proposto...
Tuttavia credo di aver mal interpretato la richiesta a meno che Roberto non confermi...

Quanto ho proposto io si ottiene specchiano prima in x e poi in y...

Saluti
@Alex

RobertoA

unread,
Jul 9, 2018, 3:06:49 PM7/9/18
to
Il 09/07/2018 17:34, Ammammata ha scritto:
> Il giorno Mon 09 Jul 2018 12:08:34p, *RobertoA* ha inviato su
> it.comp.appl.access il messaggio news:phvbbf$1bse$1...@gioia.aioe.org. Vediamo
> cosa ha scritto:
>
>> Sapete sia possibile stampare in verticale con inizio dal basso verso
>> l'alto?
>>
>
> se tutto quello che hanno scritto dovesse fallire, ci sono font "capovolti"
> per ottenere quello che vuoi, con un po' di maneggio dei testi, ma questa
> sarebbe la parte difficile ;)
>

E dove li troveresti 'sti font capovolti?

Ammammata

unread,
Jul 10, 2018, 2:44:47 AM7/10/18
to
Il giorno Mon 09 Jul 2018 08:56:25p, *RobertoA* ha inviato su
it.comp.appl.access il messaggio news:pi0a9b$1i2i$1...@gioia.aioe.org. Vediamo
cosa ha scritto:

>
> E dove li troveresti 'sti font capovolti?
>
>

cerchi con google reverse font o meglio upside down font
e se ci metti free li trovi anche "a gratis"

Ammammata

unread,
Jul 10, 2018, 2:46:24 AM7/10/18
to
On Tuesday 10/07/2018 Ammammata wrote:
> upside down font

˙ʇuɐʍ noʎ ǝʇısqǝʍ ƃuıʞɹoʍʇǝu ןɐıɔos ɹǝɥʇo ʎuɐ ɹo 'ɹǝʇʇıʍ⊥ '+ǝןƃooƃ
'ʞooqǝɔɐℲ oʇ ʇı ǝʇsɐd & ʎdoɔ ʎןdɯıs uɐɔ noʎ ˙xoq puoɔǝs ǝɥʇ uı
pǝʇɐɹǝuǝƃ ʎןʇuɐʇsuı ǝq ןןıʍ uoısɹǝʌ uʍop ǝpısdn ǝɥʇ 'xoq ʇsɹıɟ ǝɥʇ uı
ʇxǝʇ noʎ ǝʇıɹʍ ʇsnſ

/ǝBoqɐ-uʍop-ǝpısdn-ǝdʎʇ/ɹǝʇʇıʍʇ-ʞooqǝɔɐɟ/ƃɹo˙sןooʇʎuɐɯ//:sdʇʇɥ
ɹǝʇʇıʍ⊥ & ʞooqǝɔɐℲ ɹoɟ ʇxǝʇ down ǝpısd∩ ʇ∀
(ǝɯı⊥ ʇɥƃıןʎɐᗡ ǝdoɹnƎ ˙M) 0020+⊥Wƃ 70:44:80 8102 01 ןnſ ǝn⊥ uO

:)

Ammammata

unread,
Jul 10, 2018, 2:48:02 AM7/10/18
to
queste ultime righe sono create artificiosamente, *non* sono un font
upside-down reale (meglio specificarlo...)
0 new messages