Discussion :

[mmanta1]

Bonjour à tous,


J'ai une base de données avec de nombreux formulaires. Alors que j'avais presque terminé, on m' a demandé d'inserer une fonction pour imprimer un formulaire.
J'ai 2 problème, premièrement mon formulaire est trop large donc il est coupé en 2 et mon deuxième probleme est que je voudrais imprimé que 1 fiche et c'est les 60 qui sont imprimées.
Donc comment faire pour imprimer que les formulaires voulues et comment faire pour qu'ils ne soient pas coupés à l'impression .


Merci d'avance pour votre aide.

[dadou_82]

Bonjour
Pour la taille de ton formulaire je ne sais pas s'il y a une solution.
Mais pour l'impression de ton formulaire voulu tu ajoute un champs invisible qui comporte le numero de ton formulaire et tu met une condition dans ton impression "Num" = & Me.Numform .
Normalement ca marche

[mmanta1]

Bonjour,

Merci de votre réponse.Mais j'ai encore une question, comment faire pour inserer un numéro de formulaire.Cela se trouve où?


Merci d'avance de votre réponse.

[dadou_82]

Salut
Est ce que tu as une clé dans ta table?
Ou un champ sans doublons?

[mmanta1]

Salut,



J'ai juste une table dans ma base de données.En fait, on m'a demandé de faire plusieurs formulaires pour que les agents puissent consulter, modifier ou rechercher dans cette table.
Donc pour résumer, j'ai une table mais baucoup de requetes et de formulaires.
J'ai donc aucune clé, mais j'ai un champs société qui ne contient pas de doublons.

Merci pour votre aide

[dadou_82]

Si ton champ societé ne contient pas de doublon
Et que ton champ et sur ton formulaire tu as juste à faire
"societé " = & Me.societé

"societé " est le champ de ta table
et me.societé est le champ sur ton formulaire

à bientot

[Arkham46]

Bjr,

Pour l'impression on peut (doit?) faire des états.
Le formulaire est conçu pour être visualisé à l'écran.

[mmanta1]

Bonjour,

je sais bien que les formulaires ne sont pas fait pour imprimer, mais j'ai beaucoup de formulaires environ une dizaine donc comme je n'ai pas le temps je ne peux pas faire 10 états.



Merci pour vos réponses

[mmanta1]

Bonjour,

Donc j'ai suivi vos conseil et j'ai mis ce code mais il me dit qu'il y a "incompatibilité de type"
Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande133_Click()
On Error GoTo Err_Commande133_Click
    DoCmd.PrintOut "where societe = Me.[raison sociale]"
Exit_Commande133_Click:
    Exit Sub
Err_Commande133_Click:
    MsgBox Err.Description
    Resume Exit_Commande133_Click
End Sub

"Societe" correspond au nom du champs de la table et Raison sociale au nom du champs dans le formulaire.

Merci pour votre aide.

[mmanta1]

Bonjour à tous,


C'est bon cela fonctionne.

J'ai ajouté cette ligne

Code :

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

    DoCmd.PrintOut acSelection, , , acHigh, 1, True

J'ai trouvé ce code sur le forum.


Merci à tous, à bientot!!