Newsgroup: it.comp.appl.access
Titolo: Cambiare font in un report

Salve a tutti,
vorrei sapere se esiste un sistema per cambiare, (anche cia codice),
automaticamnete il font all'apertura del repot.
Mi spiego,
In un file di parametri inserisco il tipo di font esempio "Arial"
e quando apro il report mi cambia il font esistente con "Arial"
Grazie

(.....)

Nella routine associata all'evento "Su apertura" del report scrivi:
Me.FontName="Arial"
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

ci provo grazie

Provato ma mi compare un errore.
"Riferimento non validoalla proprietà FontName Nell'espressione."

 ha scritto nel messaggio
news:1187286869.1...@k79g2000hse.googlegroups.com...
Provato ma mi compare un errore.
"Riferimento non validoalla proprietą FontName Nell'espressione."
E' normale non puoi usare quella proprietą su Open ma devi inserirla
nell'evento Format... purtroppo
in ogni evento Format...
Private Sub Corpo_Format(Cancel As Integer, FormatCount As Integer)
    Me.FontName = "Arial"
End Sub
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

Ho provato anche in questo modo ma senza esito.
se invece inserisco:
nomecampo.FontName="Arial"
In questo modo funziona.
Non esiste un codice che cicla e per ogni campo che trova nel report
possa sostituirlo?
Grazie


Stiamo parlando di Pere e fichi...!
Non sò se il suggerimento di Vincenzo risolve la tua richiesta, mi
sono limitato a spiegarti il motivo per cui non andava.
Personalmente avrei fatto una cosa simile:
Function SetFont(NomeFont as String)
On Erorr Resume Next
Dim ctl as Access.Control
For each ctl in Me.Controls
    ctl.FontName=NomeFont
NExt
End Function
Saluti
@Alex

@Alex


Ok risolto, era quello che volevo.
Grazie mille


Il discorso delle proprietà esposte dall'intellisense sui report è
abbastanza datato..!
Se guardi nemmeno la Caption delle Label è esposta.
La prorpeità FontName invece c'è eccome sul Report, come dice anche
l'help, solo che al momento del Load non viene riconosciuta per il
semplice motivo che non sà a cosa applicarla...!
Su Formattazione invece come hai potuto vedere viene regolarmente
vista e l'errore non persiste.
Ora il fatto che non faccia quanto chiesto...(a detta dell'OP) è da
chiarire meglio, cosa che non ho fatto, infatti mi sono limitato ad
ovviare al problema non avendo molto tempo da dedicare a test...
Ciao
@Alex

Scusate ancora la mia ignoranza.
Non riesco a capire come posso applicare la stessa operazione nel
sottoreport.
Ho provato in questo modo. Il risultato è che nel Report cambia il
font mentre nel sottoreport no.
Dove sbaglio?
	Nel Report
Private Sub SezioneIntestazionePagina_Format(Cancel As Integer,
FormatCount As Integer)
    fnFontReport ("R_ordine_Fornitore")
End Sub
	Nel Sottoreport
Private Sub SezioneIntestazionePagina_Format(Cancel As Integer,
FormatCount As Integer)
    fnFontReport ("Sottoreport Temp_Ordini_Articoli")
End Sub
	Nel Modulo
Function fnFontReport(NomeReport As String)
On Error Resume Next
Dim ctl As Access.Control
Dim NomeFont As String
    NomeFont = "Arial"
    For Each ctl In Reports(NomeReport).Controls
        ctl.FontName = NomeFont
    Next
End Function


Va creata una funzionr ricorsiva....
Function fnFontReport(NomeReport As String)
 On Error Resume Next
 Dim ctl As Access.Control
 Dim NomeFont As String
 NomeFont = "Arial"
 For Each ctl In Reports(NomeReport).Controls
       Select Case ctl.ControlType
             Case acSubForm
                   fnFontReport ctl.Report
              Case else
                   ctl.FontName = NomeFont
       End Select
 Next
End Function
@Alex