Newsgroup: it.comp.appl.access
Titolo: Report con righe verticali

Buongiorno a tutti ... ho già controllato sui post precedenti relativi all'argomento , ma o non ho capito niente io o proprio non c'è un post che risolva il mio problema ( strano !! ) in ogni caso vi espongo il quesito che mi stà facendo impazzire :
 
DEVO e dico DEVO stampare un report di una fattura che ha già nel corpo la classica griglia che DEVE essere così e non posso cambiare cioè una serie di linee verticali che delimitano le colonne dei dati della fattura : oggetto , qtà , prezzo ecc.
 
La fattura viene popolata da una query che riporta tutti i dati di fattura : n° fatt , data e cliente che vengono ripetuti nelle righe della query , tante volte quante sono le righe di fattura ( o per meglio dire , tante volte quanti sono gli articoli citati nella fattura).
 
Ecco il problema , se inserisco semplicemente i campi delle righe della fattura nel corpo dove sono già disegnate le righe che delimitano le colonne  , il report genera tante pagine quante sono le righe e su ogni pagina mi ripete i dati di intestazione della fattura , ma nel corpo mi inserisce una riga degli articoli per ogni pagina : ho 10 articoli , trovo 10 pagine con un rigo per ogni pagina. 
 
In più il campo descrizione è un campo memo perchè la descrizione può essere di poche lettere oppure una descrizione di più righe , col campo memo tutto mi si riscala automaticamente.
 
Cosa vorrei ? Riuscire agenerare il report con le righe verticali che DEVONO essere così e popolare le colonne con i dati delle righe della fattura .
 
Spero di essere stato chiaro e accetto molto volentieri chiunque mi aiuti a risolvere qs. problema.
Vi ringrazio anticipatamente.


e hai cercato male...argomento trito e ritrito
 
sull'evento "su pagina" del tuo report scrivi ad esempio
 
 
Dim fattura As Report
Set fattura = Report_Fattura
 
'per ogni riga verticale che vuoi ottenere usa il comando line
fattura.Line (100, 100)-(100, 7000)
 
 
 
vedrai che ti apapre una bella linea verticale
 
 
la guida in linea di access:
 
espressione.Line(flag, x1, y1, x2, y2, colore)
 
espressione   Obbligatorio. Espressione che restituisce uno degli 
oggetti indicati nell'elenco Si applica a.
 
flag  Elemento Integer obbligatorio.
 
x1  Elemento Single obbligatorio. Valore che indica la coordinata del 
punto iniziale della linea o del rettangolo. Le proprietà relative alle 
proporzioni (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight e ScaleWidth) 
dell'oggetto Report specificato nell'argomento oggetto determinano 
l'unità di misura utilizzata. Se si omette tale argomento, la linea 
inizia dalla posizione indicata dalla proprietà CurrentX.
 
y1  Elemento Single obbligatorio. Valore che indica la coordinata del 
punto iniziale della linea o del rettangolo. Le proprietà relative alle 
proporzioni (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight e ScaleWidth) 
dell'oggetto Report specificato nell'argomento oggetto determinano 
l'unità di misura utilizzata. Se si omette tale argomento, la linea 
inizia dalla posizione indicata dalla proprietà CurrentY.
 
x2  Elemento Single obbligatorio. Valore che indica la coordinata del 
punto finale per la linea da disegnare. Questo argomento è obbligatorio.
 
y2  Elemento Single obbligatorio. Valore che indica la coordinata del 
punto finale per la linea da disegnare. Questo argomento è obbligatorio.
 
colore  Elemento Long obbligatorio. Valore che indica il colore RGB 
(rosso, verde, blu) utilizzato per disegnare la linea. Se si omette 
questo argomento, viene utilizzato il valore della proprietà ForeColor. 
È inoltre possibile utilizzare la funzione RGB o QBColor per specificare 
il colore.
 
 
 
 
ciao
BFS
 
 
 

Ok ora ci prova , per il momento ti ringrazio molto.
 
 

Scusa devi avere pazienza , ma non mi funziona perchè io sono molto a digiuno di codice VBA. Mi puoi spiegare meglio tutta la sintassi ?
soprattutto quella del metodo LINE '
Grazie mille
 


crea un report vuoto e chiamalo fattura.
nell'evento su pagina del report incolla
 
 
 
Dim fattura As Report
Set fattura = Report_Fattura
 
 
fattura.Line (100, 100)-(100, 7000)
 
salva e apri il report
vedrai che ottieni una bella linea verticale che parte da x1=100 y1=100 
  a x2=100 a y2=7000
 
con lo stesso concetto creati tutta la tua bella griglia dati
 
ciao
BFS