Newsgroup: it.comp.appl.access
Titolo: repot: righe verticali e campi "can grow"

>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........

Hai provato a leggere l'altezza della Sezione e dimensionare la riga, su FORMAT...?
Non ricordo bene, mi pareva di aver risolto con una cosa simile:
 
Me.NomeLinea.Height=Me.Section(Me.NomeLinea.Section).Height
 
@Alex

Il giorno Wed 06 Nov 2019 05:17:12p, *@Alex* ha inviato su
it.comp.appl.access il messaggio
news:870bbcc7-507a-470d...@googlegroups.com
. Vediamo cosa
ha scritto: 

ho trovato soluzioni molto più complicate di questa
 
domani gli do una possibilità, grazie


 riga vada sempre dall'alto al basso su tutto lo spazio?
 
Fare espandere le linee verticali
http://www.donkarl.com/it?FAQ5.15
 
 
Siccome hanno tolto tutta la KB... il link nel articolo FAQ trova con:
https://web.archive.org/web/20150407095453/http://support.microsoft.com/en-us/kb/170838
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 

 /en-us/kb/170838 
 
grazie, č simile a quelle che avevo giŕ trovato in altri siti
la riporto in modo che se salta webarchive ;) almeno ne resta traccia qui
 
The following steps demonstrate how to use the Line method to 
programmatically draw a line in a report's detail section and make it the 
same height as the section.
 
    Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0) 
and create a blank new report based on the Employees table.
    Set the report's Width property to 5 in.
    On the View menu, click Sorting And Grouping. Enter the following in 
the Sorting And Grouping window, and then close it:
 
          Field/Expression: EmployeeID (Or Employee ID in Microsoft Access 
2.0)
          Sort Order: Ascending
          Group Header: Yes
 
 
    If the field list is not displayed, click the Field List on the View 
menu to display it, and then drag the Notes field from the field list to 
the report's detail section.
    Delete the label of the Notes text box by selecting the label, and then 
pressing the DELETE key.
    Set the properties of Notes text box as follows:
 
          Name: Notes
          ControlSource: Notes
          CanGrow: Yes
          CanShrink: Yes
          Left: 0.2 in
          Top: 0.166
          Width: 4.6042 in
          Height: 0.166 in
 
 
    Select the horizontal Detail bar to select the detail section of the 
report. Set the following properties for the detail section:
 
          CanGrow: Yes
          CanShrink: Yes
          Height: 0.5 in.
 
 
    Set the detail section's OnPrint property to the following event 
procedure:
 
           Private Sub Detail_Print(Cancel As Integer, PrintCount As 
Integer)
              Dim X1 As Single, Y1 As Single
              Dim X2 As Single, Y2 As Single
              Dim Color As Long
 
              ' Specify unit of measurement for coordinates on a page...
              Me.ScaleMode = 5 ' Specify that measurement occur in inches.
 
              ' Set line to print 5 inches from the left margin.
              X1 = 5
              X2 = 5
 
              ' Set line to print from the top of the detail section
              ' to a maximum height of 22 inches.
              Y1 = 0
              Y2 = 22
              Me.DrawWidth = 8 ' Width of the line (in pixels). Note: Some 
printers do not accept odd numbers.
              Color = RGB(0, 0, 0)  ' Use black line color.
 
              ' Draw the line with the Line method.
              Me.Line (X1, Y1)-(X2, Y2), Color
           End Sub
 
 
    Preview the report. Note that the height of the vertical line to the 
right of the Notes field is the same as the height of the detail section. 


 
 
codice onFormat non funziona, il valore di Me.Line97.Height (396) è lo 
stesso di Me.Section(Me.Line97.Section).Height (e lo stesso per le altre 
tre linee)
 
 
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
 
Me.Line97.Height = Me.Section(Me.Line97.Section).Height
Me.Line98.Height = Me.Section(Me.Line98.Section).Height
Me.Line99.Height = Me.Section(Me.Line99.Section).Height
Me.Line100.Height = Me.Section(Me.Line100.Section).Height
 
End Sub
 
adesso provo il metodo complicato ;)


Non sono riuscito a trovare il mio pezzetto di esempio... ma anche in questo articolo che è equivalente come problematica, fa cenno alla medesima idea:
 
https://www.tek-tips.com/viewthread.cfm?qid=1404348
 
 
Appena ho modo ci provo meglio... evento PRINT della section...
 
@Alex