Discussion :

[Stargate SG1]

Bonjour,

J ai construit une application qui me permet d éditer différents documents.
A partir de ces documents, je veux maintenant pouvoir imprimer un dossier qui contient mes documents et bien sur en début de dossier un sommaire qui me recense l intitule de mes différents documents ainsi que le numéro de page ou trouver ceux-ci.
Mon problème et que les 3 derniers documents de mon dossier peuvent contenir un nombre variable de page.

Je stocke actuellement dans une table mon sommaire (les documents du dossier pouvant être variable).
J imagine pouvoir lancer en mode non visible mes 3 documents au nombre de page variable et récupéré le nombre de page total de chacun.
Mais comment ?

Merci

[marot_r]

pour ouvrir ton rapport caché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
docmd.OpenReport "nomDuRapport",,,,acHidden

Ensuite je mettrai sur l'événement OnClose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim db as database:set db=currentdb
dim r as recorset:set r=db.openrecordset("NombrePages")
r.addnew
r![Nom]=me.name
r![Pages]=me.pages
r.update
r.close:set r=nothing
db.close:set db=nothing

[TLImpala]

Salut,

J'ai eu le même genre de besoin que toi il n'y a pas si longtemps. Je ne voulais imprimer que la dernière page d'un état et je m'en suis sorti en récupérant le nombre de pages (variables) puis une impression de page x à y (en mettant x et y au nombre de page total)

Voici mon bout de code à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Btn_imprimer_Click()
 
  Dim stDocName As String
  Dim stDocPages As Integer
  ' Variables
      stDocName = "Nom de l'Etat"
  ' Ouverture de l'aperçu de l'état
  DoCmd.OpenReport stDocName, acViewPreview
  ' récupération du nombre de pages totales
      stDocPages = Reports(stDocName).Pages
  ' Lancement de l'impression de la derniere page
  DoCmd.PrintOut acPrintAll, stDocPages, stDocPages
  ' Fermeture de l'aperçu de l'état
  DoCmd.Close
 
End Sub

L'ouverture de l'état est quasi-invisible et peut-être qu'avec le achidden de marot_r on ne le voit plus du tout.

[marot_r]

Je confirme qu'avec acHidden tu ne le vois pas. Au départ j'ai travaillé avec préview pour mettre au point puis je suis passé à acHidden pour éviter un flash sur l'écran.

A+

[Stargate SG1]

Salut et merci pour le début de réponse mais j'ai besoin d'explication

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim db as database:set db=currentdb
dim r as recorset:set r=db.openrecordset("NombrePages")
r.addnew
r![Nom]=me.name
r![Pages]=me.pages
r.update
r.close:set r=nothing
db.close:set db=nothing

Pourrais tu m'expliquer ou je mes ce code et peux tu me l'expliquer?

Merci

[marot_r]

Ce code enregistre dans une table nommée NombrePages le nom du rapport et le nombre de pages qu'il contient.

Je le mettrais dans l'événement OnClose du rapport mais tu pourrais aussi l'utiliser dans la suggestion de TLImpala sous la forme suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim db as database:set db=currentdb:'Pointe sur la base
dim r as recorset:set r=db.openrecordset("NombrePages"):'Ouvre la table
r.addnew:'Ajoute un nouvel enr
r![Nom]=stDocName:'Met stDocName dans le champ Nom
r![Pages]=Reports(stDocName).Pages:'Met le nombre de pages dans le champ Pages
r.update:'Enregistre le nouvel enr
r.close:set r=nothing:'Ferme la table et déréférence l'objet
db.close:set db=nothing:'Ferme la base et déréférence l'objet

Le mettre dans une table te permets de faire un rapport basé dessus.

Évidement avant usage il faut vider la table.

A+

[Stargate SG1]

Ok merci je devrais m'en sortir