Newsgroup: it.comp.appl.access
Titolo: Disegnare un report

Ciao a tutti,
volevo sapere se esiste un modo per disegnare all'interno di un report forme 
tipo rettangoli con angoli arrotondati.
Grazie,
Thunder 

 ha scritto nel messaggio 
news:cl94cd$e1i$1...@newshispeed.ch...

che io sappia no, però puoi sempre crearteli con programmi di grafica e poi 
metterceli come elementi grafici
l'unico contro è che la stampa del report si rallenta un po. 

 Thunder
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:cl94cd$e1i$1...@newshispeed.ch...

In realtà non è così semplice affrontare questo problema.
Come ti diceva Roberto hai a disposizione i Metodi Line e Circle
per disegnare nel Report ma il rpoblema principale è che li puoi
usare solo nell'Evento PRINT di Sezione.
Ti allego un Esempio che disegna un Rettangolo con gli angoli arrotondati
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
    Dim sngCtrO As Single, sngCtrV As Single
    Const conPI = 3.
14159265359
    Dim sngRaggio As Single
    sngCtrO = Me.ScaleWidth ' Centro orizzontale.
    sngCtrV = Me.ScaleHeight ' Centro verticale.
    sngRaggio = 300 ' Raggio del cerchio.
    Me.Circle (sngRaggio * 1.1, sngRaggio * 1.1), sngRaggio, , conPI / 2,
conPI
    Me.Circle (sngCtrO - sngRaggio * 1.1, sngRaggio * 1.1), sngRaggio, ,
0,conPI / 2
    Me.Circle (sngRaggio * 1.1, sngCtrV - sngRaggio * 1.1), sngRaggio, ,
conPI,3 * conPI / 2
    Me.Circle (sngCtrO - sngRaggio * 1.1, sngCtrV - sngRaggio * 1.1),
sngRaggio, , 3 * conPI / 2, 0
    Me.Line (sngRaggio * 1.1, sngRaggio * 0.1)-(sngCtrO - sngRaggio *
1.1,sngRaggio * 0.1)
    Me.Line (sngRaggio * 0.1, sngRaggio * 1.1)-(sngRaggio * 0.1, sngCtrV -
sngRaggio * 1.1)
    Me.Line (sngRaggio * 1.1, sngCtrV - sngRaggio * 0.1)-(sngCtrO -
sngRaggio *1.1, sngCtrV - sngRaggio * 0.1)
    Me.Line (sngCtrO - sngRaggio * 0.1, sngCtrV - sngRaggio *
1.1)-(sngCtrO - sngRaggio * 0.1, sngRaggio * 1.1)
End Sub
Ora il problema più grosso da affrontare è se il tuo Report ha oltre il
Corpo anche:
    PiediPagina_Pagina
    PiediPagina_Report
    Intestazione_Pagina
    Intestazione_Report
In questo caso devi inserire in ogni Evento Print delle Sezioni Interessate
al Disegno
la prosecuzione della Linea da dove l'hai interrotta..... e riprenderla
nella sezione sotto...!
In pratica se supponi di avere un Report MultiPagina, il disegno non
comprenderà gli eventi
nell'Intestazione_Report e nel PiediPagina_Report, ma andranno disegnati in
questo Ordine:
Intestazione_Pagina    (Parte Superiore con 2 quarti di
Circonferenza+1LineaOrizz+2Linne Vert)
Corpo                        (Parte Intermedia con la prosecuzione delle 2
Linee Verticali)
PIediPagina_Pagina     (Parte Finale con la ripresa delle 2 Linee Vertcali 2
Quarti di Circonf. +Linea Orizzontale)
Spero di non averti spaventato.....!!!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Correggo un'errore che ho testato ora su suggerimento di Silvio Savoldi.
E' possibile usare l'Evento "Su Pagina" del Report per generare
Automaticamente
un Box delle dimensioni della Pagina.
Pertanto se si mette la stessa funzione nel suddetto EVENTO verrà disegnato
un
RETTANGOLO con i bordi smussati della Dimensione dell'Area di stampa.
Saluti.
