Newsgroup: it.comp.appl.access
Titolo: Problemi con dimensioni pagine report... cosa strana!

Salve,
a sto giro ho qualche problemino con le dimensioni dei report , mi spiego:
ho fatto la mia query, mi sono creato il mio bel report conscio che
utilizzando le impostazioni automatiche usciva di fuori dalla pagina,
poco male imposto i margini alla dimensione di 5mm (invece che 25)... tutto
ok, lo sperimento , salvo il report(che è richiamato da maschera)
et voilà se chiudo e riapro il db riecco impostata la dimensione pagina con
margini ampi. Qualcuno conosce il perchè di questo comportamento di
access(2000)?
E poi , esiste un modo per impostare la larghezza di pagina via codice così
taglio la testa al toro....
Come sempre grazie,
Paolo.

 taglio la testa al toro....
Quando proprio non c'è nulla da fare, mi scelgo uno o più campi, li riduco
un po' per ottenere lo spazio che serviva, e li metto espandibili. Quindi
metto una linea nel corpo sotto i campi per separare i vari record. Se il
dato non entra nei campi ridotti quel record verrà più alto perchè quel
campo andrà a capo, però la riga di separazione da un effetto di "pulizia"
del report...
Antonio

 taglio la testa al toro....
Esiste, ma io trovo più semplice salvare e ripristinare qualsiasi parametro
di stampa del report, e lo faccio nel seguente modo:
Option Compare Database
Option Explicit
Type prnCfg
    prtDevMode As Variant
    prtMip As Variant
    PrtDevNames As Variant
End Type
Public Function SalvaReportCfg(rptName As String, saveFile As String) As
Boolean 'torna vero se c'è errore
On Error GoTo Erro
  Dim vrt As prnCfg
  Dim rpt As Report
  SalvaReportCfg = True
  DoCmd.OpenReport rptName, acDesign
    Set rpt = Reports(rptName)
    vrt.prtDevMode = rpt.prtDevMode
    vrt.prtMip = rpt.prtMip
    vrt.PrtDevNames = rpt.PrtDevNames
  DoCmd.Close acReport, rpt.Name, acSaveYes
  Open saveFile For Binary Access Write As #100
  Put #100, 1, vrt
  Close #100
  Set rpt = Nothing
  SalvaReportCfg = False
  Exit Function
Erro:
Resume Niente
Niente:
  On Error Resume Next
  Set rpt = Nothing
  DoCmd.Close acReport, rpt.Name, acSaveNo
  Close #100
End Function
Public Function RipristinaReportCfg(rptName As String, restoreFile As
String) As Boolean 'torna vero se c'è errore
On Error GoTo Erro
  Dim vrt As prnCfg
  Dim rpt As Report
  RipristinaReportCfg = True
  Open restoreFile For Binary Access Read As #100
  Get #100, 1, vrt
  Close #100
  DoCmd.OpenReport rptName, acDesign
    Set rpt = Reports(rptName)
    rpt.prtDevMode = vrt.prtDevMode
    rpt.prtMip = vrt.prtMip
    rpt.PrtDevNames = vrt.PrtDevNames
  DoCmd.Close acReport, rpt.Name, acSaveYes
  Set rpt = Nothing
  RipristinaReportCfg = False
  Exit Function
Erro:
Resume Niente
Niente:
  On Error Resume Next
  Set rpt = Nothing
  DoCmd.Close acReport, rpt.Name, acSaveNo
  Close #100
End Function
Ciao, Max


Innanzi tutto grazie per le risposte, solo che ho qualche piccolissimo
problema.
Evidentemente sono abbastanza inesperto per non riuscire a capire gran parte
del codice che hai postato e (da profano) mi stavo chiedendo innanzitutto 2
cose ossia :
la sua collocazione (nel codice del report relativo immagino ...)  e se
effettivamente per far mantenere delle dimensioni predefinite si debba
articolare in questo modo del codice o non bastino alcuni accorgimenti che
consentano una resa migliore del report.
Pur comprendendo che la via da te intrapresa può indubbiamente portare dei
benefici (tanto è vero che tu sai come muoverti e io no.. e soprattutto che
il problema lo risolvi!!!) stavo cercando una via pratica da newbie per
ovviare in maniera "semplice" al problema.
Tutto questo per dirti che per me è ovvio che persone come te (che hanno le
capacità di leggere/scrivere/interpretare il codice) siano guru per me ed i
loro consigli siano il massimo ma che purtroppo non penso di essere in grado
di applicare il consiglio che mi hai dato!
Se puoi delucidarmi in breve cosa fa il codice postato te ne sarei grato!
Grazie
Paolo

 ha scritto nel messaggio
news:QEpx7.7581$YC3.1...@news1.tin.it...

E' un bug di A2000 basta istallare la Sr1 e la Sp2 e la cosa si sistema.

 la sua collocazione (nel codice del report relativo immagino ...)  e se
La collocazione... dove ti pare :-)
Io lo uso cosě: configuro tutti i report in modo che stampino giusto, poi ho
una maschera che quando premo un pulsante salva la configurazione di tutti i
report, usando una delle 2 funzioni che ho postato.
Se poi qualcosa si sconfigura dalla stessa maschere con un altro pulsante
uso l'altra funzione, per caricare dai files le configurazioni
precedentemente salvate.
Ciao, Max

> E' un bug di A2000 basta istallare la Sr1 e la Sp2 e la cosa si sistema.
Sono un programmatore di Access ed ho un urgente problema di consegna
di un lavoro. Ti sarei grato se Tu mi indicassi come reperire (ed
installare) la Sr1 e la Sp2 (ambedue ?). Ti ringrazio. (Comunque se Tu
avessi bisogno di qualche informazione su Access o comunque sui
Database sono abbastanza esperto e sono a Tua disposizione).

 ha scritto nel messaggio
news:c45993bf.0111...@posting.google.com...

Cerca Office 2000 all'indirizzo:
http://office.microsoft.com/italy/downloads/
Ciao
--
Andrea