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

Creare un cornice in report via codice...

178 views
Skip to first unread message

Io [Lavoro]

unread,
Aug 2, 2004, 6:22:06 AM8/2/04
to
Scusate se vi rompo nuovamente le scatole... Stò "copiando" dei moduli
cartacei in report di Access ed ho la necessità che siano uguali agli
originali; in uno di questi moduli ho una tabella con bordo sottile
all'interno e bordo esterno più grosso:
ho predisposto il report con delle label e delle caselle di testo e gli ho
dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo, sopra
il bordo esterno delle caselle di testo, con un bordo un po' pù grosso... Il
problema è che non so come creare un rettangolo via codice delle dimensioni
uguali a quelli della tabella che variano a seconda del numero dei record
visualizzati nel report...
Help please!
Ciao

--
PS


Pablitomf

unread,
Aug 2, 2004, 6:39:45 AM8/2/04
to
Io [Lavoro] ha scritto:

> ho predisposto il report con delle label e delle caselle di testo e gli ho
> dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo, sopra

> il bordo esterno delle caselle di testo, con un bordo un po' pů grosso...

Via codice? Scusa e perkč via codice? non x impicciarmi, ma non fai prima
a disegnarli a mano?

> Help please!
> Ciao

Il metodo č visualizzabile nell'help con CreateReportControl... anche se
non ho ben inteso la frase "Il problema č che non so come creare un


rettangolo via codice delle dimensioni uguali a quelli della tabella che
variano a seconda del numero dei record visualizzati nel report..."


--
Pablitomf (Maurizio Facciuti)

Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it


Io [Lavoro]

unread,
Aug 2, 2004, 6:59:04 AM8/2/04
to

"Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
news:cel5li$stg$1...@news.newsland.it...

> Io [Lavoro] ha scritto:
>
> > ho predisposto il report con delle label e delle caselle di testo e gli
ho
> > dato il bordo sottile ed ora vorrei creare, via codice, un rettangolo,
sopra
> > il bordo esterno delle caselle di testo, con un bordo un po' pů
grosso...
>
> Via codice? Scusa e perkč via codice? non x impicciarmi, ma non fai prima
> a disegnarli a mano?

Pardon... Lo ho disegnato a mano e voglio cambiare l'altezza del rettangolo
cornice...

> > Help please!
> > Ciao
>
> Il metodo č visualizzabile nell'help con CreateReportControl...

Non ci ho trovato nulla a riguardo li...

> anche se
> non ho ben inteso la frase "Il problema č che non so come creare un
> rettangolo via codice delle dimensioni uguali a quelli della tabella che
> variano a seconda del numero dei record visualizzati nel report..."

Il report puň avere 10 record ed il rettangolo dovrebbe essere 10cm oppure
15 record ed il rettangolo dovrebbe avere 15cm e cosě via...


Io [Lavoro]

unread,
Aug 2, 2004, 7:01:34 AM8/2/04
to

"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n6l1cF...@uni-berlin.de...

Dimenticavo: ho provato nell'evento supagina del report ad impostare
l'altezza del rettangolo come l'altezza del corpo del report ma cosi mi fa
una riga grossa per ogni record...


Pablitomf

unread,
Aug 2, 2004, 8:10:39 AM8/2/04
to
Io [Lavoro] ha scritto:

[CUT]
> Il report può avere 10 record ed il rettangolo dovrebbe essere 10cm oppure
> 15 record ed il rettangolo dovrebbe avere 15cm e così via...

Bhè a dire il vero non è che ci stia capendo proprio tanto in quello che
descrivi, cmq da quello che ho letto puoi prima contarti i record è poi in
base al risultato calcolarti l'altezza (sapendo che come hai detto è un
centimetro a record la formula è facile no?)...

Scusa ma approfondendo ancora non capisco... ma la cornice la vuoi al di
fuori di un sottoreport espandibile o è interna? Perchè ti ho sentito
parlare di "ogni"record... e questo mi confonde!

Io [Lavoro]

unread,
Aug 2, 2004, 9:30:22 AM8/2/04
to

"Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
news:celb00$ljo$1...@news.newsland.it...

> Io [Lavoro] ha scritto:
>
> [CUT]
> > Il report può avere 10 record ed il rettangolo dovrebbe essere 10cm
oppure
> > 15 record ed il rettangolo dovrebbe avere 15cm e così via...
>
> Bhè a dire il vero non è che ci stia capendo proprio tanto in quello che
> descrivi, cmq da quello che ho letto puoi prima contarti i record è poi in
> base al risultato calcolarti l'altezza (sapendo che come hai detto è un
> centimetro a record la formula è facile no?)...
>
> Scusa ma approfondendo ancora non capisco... ma la cornice la vuoi al di
> fuori di un sottoreport espandibile o è interna? Perchè ti ho sentito
> parlare di "ogni"record... e questo mi confonde!

Provo ad essere più chiaro... Ho creato un report come se fosse una tabella
di excel (per intenderci) e nell'intestazione pagina ho messo le
intestazioni delle colonne, nel corpo del report invece ci sono una serie di
textbox che formano una riga (una a fianco all'altra attaccate una
all'altra) con un bordo sottilissimo... In una pagina ci stanno al massimo
15 righe, ma potrebbero esserci meno di 15 righe in un report oppure più di
15 righe, le prime 15 in una pagina e le successive in una nuova pagina
(dipende dal numero di record da visualizzare, che man mano che li inserisco
aumentano ovviamente).
Ho necessità che, in ogni pagina del report, intorno alle righe formate dai
record ci sia un rettangolo col bordo settato ad 1pt che racchiuda tutte le
righe sovrapponendosi al bordo esterno di queste...
Mettendo il codice nell'evento SuPagina del report:

Me.Cornice.Height = Me.Section(acDetail).Height

mi fa un rettangolo col bordo di 1pt per ogni riga (record) mentre io lo
voglio solo intorno alla tabella...
Spero di essere stato chiaro ora e che mi possiate dare una mano...
Ciao


sv

unread,
Aug 2, 2004, 10:04:36 AM8/2/04
to
Io [Lavoro] ha scritto:

> Me.Cornice.Height = Me.Section(acDetail).Height

Hai provato ad inserire una linea verticale sovrapposta al bordo esterno?
Se l'altezza del corpo é uguale a quella delle caselle, dovrebbe andare
bene.

--
rgrds
SC
www.accessgroup.it

--

Pablitomf

unread,
Aug 2, 2004, 10:06:25 AM8/2/04
to
Io [Lavoro] ha scritto:

> Me.Cornice.Height = Me.Section(acDetail).Height

Mo' si!!!
Da quanto scritto non usi report e sottoreport, quindi l'unica cosa da
fare è costruire il bordo...

operazioni :
1) Inserire Riga orizzontale dello spessore 1 sotto le intestazioni
attaccata all'inizio del corpo...
2) A dx e sx del corpo per ogni record inserisci riga verticale
corrispondente ai margini della riga orizzontale di cui al punto 1
(ovviamente l'altezza delle due righe a dx e sx deve coprire l'intera
altezza del corpo così da creare continuità con il resto dei record.)
3) Segui il punto uno per il piè di report per chiudere la cornice

Va bene? funziona?

Io [Lavoro]

unread,
Aug 2, 2004, 10:30:27 AM8/2/04
to

"Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
news:celhp1$24d$1...@news.newsland.it...

> Io [Lavoro] ha scritto:
>
> > "Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
> > news:celb00$ljo$1...@news.newsland.it...

Non va... Per le linee verticali va bene ma per le orizzontali non va perchè
rimane spazio tra la tabella e la linea del piè di pagina sia quando ci sono
tutti i record nella pagina che, anche peggio, quando ci sono pochi record
nella pagina... La riga viene stampata sempre alla stessa distanza dal bordo
inferiore del foglio, non dall'ultima riga della tabella... Questo era ciò
che mi aveva spinto a cercare di farlo con un rettangolo...
Ciao


Pablitomf

unread,
Aug 2, 2004, 10:30:46 AM8/2/04
to
Io [Lavoro] ha scritto:

> Non va... Per le linee verticali va bene ma per le orizzontali non va perchč
> rimane spazio tra la tabella e la linea del pič di pagina sia quando ci sono


> tutti i record nella pagina che, anche peggio, quando ci sono pochi record
> nella pagina... La riga viene stampata sempre alla stessa distanza dal bordo

> inferiore del foglio, non dall'ultima riga della tabella... Questo era ciň


> che mi aveva spinto a cercare di farlo con un rettangolo...
> Ciao

Inviami id DB solo con la tabellq/query e il report di riferimento

Io [Lavoro]

unread,
Aug 2, 2004, 10:52:18 AM8/2/04
to

"Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
news:celj6n$i12$1...@news.newsland.it...

> Io [Lavoro] ha scritto:
>
> > Non va... Per le linee verticali va bene ma per le orizzontali non va
perchè
> > rimane spazio tra la tabella e la linea del piè di pagina sia quando ci

sono
> > tutti i record nella pagina che, anche peggio, quando ci sono pochi
record
> > nella pagina... La riga viene stampata sempre alla stessa distanza dal
bordo
> > inferiore del foglio, non dall'ultima riga della tabella... Questo era
ciò

> > che mi aveva spinto a cercare di farlo con un rettangolo...
> > Ciao
>
> Inviami id DB solo con la tabellq/query e il report di riferimento

Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia un
modo di formattare condizionalmente una linea se questa è l'ultima della
sezione del corpo... ho risolto tutto tranne il piè di pagina come ti dicevo
perchè il piè di pagina è in fondo alla pagina mentre la mia tabella può
terminare anche a metà della pagina e quindi tra la fine della tabella e la
linea che faccio io c'è mezza pagina vuota...
CIao e grazie della pazienza...


Pablitomf

unread,
Aug 2, 2004, 11:03:24 AM8/2/04
to
Io [Lavoro] ha scritto:


> Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia un
> modo di formattare condizionalmente una linea se questa è l'ultima della
> sezione del corpo... ho risolto tutto tranne il piè di pagina come ti dicevo
> perchè il piè di pagina è in fondo alla pagina

Buuuuuuuuuuuuu!!!! Il Piè di pagina pagina è in fondo, non il piè di
pagina report... mettila nel piè di pagina report e vedi come funziona. :-)

Fammi sapere.

Io [Lavoro]

unread,
Aug 2, 2004, 11:16:55 AM8/2/04
to

"Pablitomf" <maurizio...@accessgroup.it> ha scritto nel messaggio
news:cell3s$5ao$1...@news.newsland.it...

> Io [Lavoro] ha scritto:
>
>
> > Non posso mandartelo perchè ci sono dati dentro... Mi chiedo se ci sia
un
> > modo di formattare condizionalmente una linea se questa è l'ultima della
> > sezione del corpo... ho risolto tutto tranne il piè di pagina come ti
dicevo
> > perchè il piè di pagina è in fondo alla pagina
>
> Buuuuuuuuuuuuu!!!! Il Piè di pagina pagina è in fondo, non il piè di
> pagina report... mettila nel piè di pagina report e vedi come funziona.
:-)

Io la metto nel "Piè di pagina pagina" come dici tu ma non va bene... rimane
lo spazio! mi fa la riga staccata dal resto in fondo al foglio!
Ciauz...
PS: Se abbandoni non mi offendo... mi sa che lascio perdere e faccio il
bordo sottile come tutto il resto...


ALESSANDRO Baraldi

unread,
Aug 2, 2004, 11:39:29 AM8/2/04
to

"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n744rF...@uni-berlin.de...

Mi sono perso il 3D, ma non mi pare abbiate preso in considerazione
la soluzione usuale:

Sub Line(flags As Integer, x1 As Single, y1 As Single, x2 As Single, y2 As
Single, color As Long)
Membro di Access.Report

Ciao.
@Alex.


Io [Lavoro]

unread,
Aug 2, 2004, 12:02:21 PM8/2/04
to

"ALESSANDRO Baraldi" <ik2...@libero.it> ha scritto nel messaggio
news:celnk3$94o$1...@lacerta.tiscalinet.it...

Scusami ma non lo trovo nell'help... potresti essere un po' meno criptico?
dove dovrei inserire quel codice ed in che versione di access? (io ho la 2k)
cosa intendi con "membro di access.report"?
Ciao


ALESSANDRO Baraldi

unread,
Aug 2, 2004, 12:18:52 PM8/2/04
to

"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n76q2F...@uni-berlin.de...
>
[CUT]

> > Mi sono perso il 3D, ma non mi pare abbiate preso in considerazione
> > la soluzione usuale:
> >
> > Sub Line(flags As Integer, x1 As Single, y1 As Single, x2 As Single, y2
As
> > Single, color As Long)
> > Membro di Access.Report
> >
>
> Scusami ma non lo trovo nell'help... potresti essere un po' meno criptico?
> dove dovrei inserire quel codice ed in che versione di access? (io ho la
2k)
> cosa intendi con "membro di access.report"?
> Ciao

Lo sai che sono conciso di mio.

La puoi usare dalla versione A97.
Per trovarla devi andare nel Report aprire il Visualizzatore Oggetti
e digitare Line.
Ne troverai più di uno, ma quello che ti serve è il metodo di Report
come ti ho indicato.

Con quella Funzione disegni quello che vuoi anche Rettangoli, io la
metto Su Formattazione nel mio Caso, e qualunque sia il Numero di
Record la dimensione del Rettangolo non DEVE cambiare in quanto
è tipico del Protocollo di STAMPA avere la riquadratura.

Ciao.
@Alex


ALESSANDRO Baraldi

unread,
Aug 2, 2004, 12:21:47 PM8/2/04
to

"Io [Lavoro]" <I...@Io.it> ha scritto nel messaggio
news:2n76q2F...@uni-berlin.de...
>
Errata Corrige, lo metto su Evento come segue:

Private Sub Report_Page()
' Draw a line around the entire page.
Me.Line (0, 0)-(Me.ScaleWidth - 250, Me.ScaleHeight - 50), , B
End Sub

In questo caso B è l'Opzione che crea un rettangolo utilizzando le
coordinate come angoli opposti del rettangolo.

@Alex.


Pablitomf

unread,
Aug 3, 2004, 3:06:37 AM8/3/04
to
Io [Lavoro] ha scritto:


> Io la metto nel "Piè di pagina pagina" come dici tu ma non va bene... rimane
> lo spazio! mi fa la riga staccata dal resto in fondo al foglio!
> Ciauz...
> PS: Se abbandoni non mi offendo... mi sa che lascio perdere e faccio il
> bordo sottile come tutto il resto...

Ti assicuro che funziona tranquillamente... ti mando l'esempio Ver.A97

Io [Lavoro]

unread,
Aug 3, 2004, 3:08:16 AM8/3/04
to

"ALESSANDRO Baraldi" <ik2...@libero.it> ha scritto nel messaggio
news:celq3d$avn$1...@lacerta.tiscalinet.it...

Mi dispiace ma non riesco comunque a fare quello che voglio fare... Non
riesco a trovare le coordinate giuste per i vertici ed il rettangolo mi
parte dall'intestazione pagina al piè di pagina pagina me ntre io vorrei che
mi contornasse la sola sezione del corpo pagina dove sono presenti dei
record (che quindi non ha una altezza fissa dato che il numero dei record è
variabile)...
Ciao


0 new messages