Newsgroup: it.comp.appl.access
Titolo: Margini report

Buon giorno a tutti
Avrei il seguente problema:
è possibile variare la lunghezza di una pie di pagina in un report da
codice?
Mi spiego meglio: io vorrei che in tutte le pagine avesse per esempio un
altezza di 2 cm e poi nell'ultima pagina l'altezza diventasse di 3 cm.
Sperando di essere stato chiaro ringrazio tutti
Raffaele

 ha scritto nel messaggio
news:urX6b.28817$hE5.1...@news1.tin.it...

hai provato ad utilizzare i piè di pagina pagina e i piè di pagina report?

 wrote in message
nAX6b.301200$lK4.9...@twister1.libero.it...

SI ma il problema è che io voglio variare la lunghezza da programma rispetto
a quella fissa fatta in creazione struttura.
Raffaele

 wrote in message
urX6b.28817$hE5.1...@news1.tin.it...

Progetta il piè di pagina pagina del rport di 2 cm, quindi da codice VBA, a
fronte dell'evento "Su formattazione" di quella sezione imposta a 3 cm il
valore della proprietà Height (vedi help) di quella sezione.
Ti ricordo che devi impostare il valore di tale proprietà in twip.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
ZpZ6b.301485$lK4.9...@twister1.libero.it...

Seguendo il consiglio di Massimiliano continuo il post:
Buongiorno a tutti,
nel post precedente avevo sottoposto il problema della formattazione
variabile di una sezione di un Report e Roberto mi ha fornito la soluzione
(effettivamente me l'ero un po dormita), però (sotto ho riportato il codice)
il mio programma mi fa una cosa strana.
Vedo di spiegarmi:
Lo scopo del report è di stampare una lista di nomi in base a delle scelte
fatte da una maschera, poi alla fine stampa un sottoreport con dei totali di
riepilogo.
Io questo sottoreport lo voglio solo alla fine e la cosa mi riesce con le
istruzioni che seguono. Il problema è che la formattazione variata da codice
avviene anche nella prima pagina pur non stampando il sottoreport
!!!!!!!!!!!!!!!
La variabile "DIMENSIONE" è stata creata solo per seguire il flusso del
codice ed infatti mi stampa che il valore non è variato, ma formatta
ugualmente.
Dove sta l'inghippo ???
Saluti e grazie a tutti
Raffaele
(PS segue codice)
Option Compare Database
Dim PaginaN As Integer
Dim UltimaPaginaReport As Boolean
Dim DIMENSIONE As String
Function AzzeraPagina()
    PaginaN = 0
    UltimaPaginaReport = True
    DIMENSIONE = "S"
End Function
Function CalcolaPagina()
    PaginaN = PaginaN + 1
    CalcolaPagina = PaginaN
End Function
Private Sub IntestazioneGruppo1_Format(Cancel As Integer, FormatCount As
Integer)
    UltimaPaginaReport = False
    DIMENSIONE = "N"
End Sub
Private Sub PièDiPaginaGruppo2_Format(Cancel As Integer, FormatCount As
Integer)
    UltimaPaginaReport = True
    DIMENSIONE = "S"
    PaginaN = 0
End Sub
Private Sub Report_Close()
    DoCmd.Close acForm, "ParametriStampa"
End Sub
Private Sub Report_NoData(Cancel As Integer)
    Cancel = -1
End Sub
Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "ParametriStampa", , , , , acDialog, "Parametri Stampa"
    If Not IsLoaded("ParametriStampa") Then
        Cancel = True
    End If
End Sub
Private Sub SezionePièDiPaginaPagina_Format(Cancel As Integer, FormatCount
As Integer)
    Me.DIM54 = DIMENSIONE
    If DIMENSIONE = "S" Then
       Me.SezionePièDiPaginaPagina.Height = 2268
       Me.DIM54 = DIMENSIONE & DIMENSIONE
    Else
       Me.DIM54 = DIMENSIONE & DIMENSIONE
       Me.SezionePièDiPaginaPagina.Height = 1134
    End If
    Me.RptANAGRAFICAxListaSomma.Visible = UltimaPaginaReport
End Sub