Newsgroup: it.comp.appl.access
Titolo: Impostazioni Margini Report

Ciao A tutti.
Una domanda.
E' possibile da codice impostare i margini dei report.
Mi capita spesso che aprendo un report in visualizza struttura e modificando 
i margini e il senso di stampa da File/Imposta margini
che una volta chiuso e magari compattato i margini tornino a valori assurdi 
24,99 su tutti i lati.
Io cosě prima di stampare devo aprire le impostazioni e ridargli tutti i 
margini.
Ho anche provato ad inseire i margini quando sono i visualizza struttura ma 
ogni tanto e non ho capito quando
questi margini vengono persi.
Ecco perchč vorrei sapere se č possibile impostare i margini da codice.
Vi ringrazio
Ciao
Enrico Pietrobon (no pierobon) 

 Enrico Pietrobon (no pierobon)
vedi precedente post:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/d846b52a09438002/d7131d3d27430c86?q=margini+report&rnum=2#d7131d3d27430c86
ciao
ap

 Enrico Pietrobon (no pierobon)
vedi precedente post:
http://groups.google.it/group/it.comp.appl.access/browse_thread/thread/d846b52a09438002/d7131d3d27430c86?q=margini+report&rnum=2#d7131d3d27430c86
ciao
ap
Ti ringrazio per l'informazione.
Ho visto e risolto.
La domanda comunque rimane, č possibile cambiare da codice quelle misure ???
Facendo cosě si potrebbero salvare i dati in una tabella e modificarli a 
piacere.
Ogni volta che si apre un report le misure verrebbero prese in automatico 
dai dati memorizzati.
Grazie
Enrico Pietrobon 


è possibile utilizzando l'oggetto printer disponibile da A00
    With Application.Printer
        .TopMargin = 20
        .RightMargin = 0
        .LeftMargin = 0
        .BottomMargin = 0
    End With
ciao
ap 

 ha scritto nel messaggio 
news:drnsd3$86o$1...@balena.cs.interbusiness.it...

Per stampare io utilizzo questo comando.
Così posso cambiare tipodi stampante
DoCmd.RunCommand acCmdPrint
Ma come devo usare l'oggeto Application.printer ???
Grazie
Enrico Pietrobon 

 ha scritto nel messaggio 
news:43df7fef$0$4156$4faf...@reader3.news.tin.it...

' ----------------------------------------------
.................................................................................................................................
Enrico vedi il contenuto della FAQ:
http://www.donkarl.com/it/index.htm?/it/FAQ/FAQ6VBA.htm
faq 5.1
.....................
Dim NumCopStampe as Integer
Dim nomeReport  as String
Dim intcm as Integer
...........
NumCopStampe = 1
nomeReport  = "Report1"
    With Application.Printer    ' imposta i margini della stampante
        .TopMargin = 20
        .RightMargin = 0
        .LeftMargin = 0
        .BottomMargin = 0
    End With
DoCmd.OpenReport nomeReport, acViewPreview  ' apre il report in anteprima 
stampa
' per modificare le dimensioni del report per esempio la Larghezza
intcm = 0,5 * 567     ( 0,5 sono i cm   ---  moltiplicare per 567 per 
convertire in twip)
With Reports(0).Printer     ' puoi variare le dimensioni del report
    .DefaultSize = False
    .ItemSizeWidth = .ItemSizeWidth - intcm   ' la larghezza del report 
viene ridotta di "intcm"  twip
End With
' attenzione prima di ridurre la larghezza del report bisogna spostare anche 
i controlli del report a dx
' vedi esempio nel sito di Alessandro Baraldi :
' 
http://www.mantuanet.it/alessandro.baraldi
' sezione Report : 2.0 personalizzare a Runtime la Reportistica
    DoCmd.PrintOut , , , , NumCopStampe   '  lanci la stampa e puoi decidere 
il numero di copie
    DoCmd.Close acReport, nomeReport      '  chiudi il report
.........................................................................
ciao
ap